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Denes von Mihaly 

Mezi vyznamne osobnosti, ktere se 
zapsaly do dejin rozvoje televizni tech- 
niky v jejich pocatcich, byl nesporne 
mad’arsky fyzik Denes von Mihaly. Na- 
rodil se 7. 7. 1894 v Mad’arskem 
Godolb, ale v mladi se predevsim zaji- 
mal o automobily. Mel nemecke vycho- 
vani, coz mu umoznilo studovat od roku 
1 91 2 v Mnichove a pak v Budapesti fy- 
ziku a elektrotechniku. 

Behem studii se seznamil s teorii 
prenosu obrazu na dalku a tak jiz v race 
1919 v Budapesti predvadel prenos 
obrazu pomoci sveho pristroje, ktery 
nazval Telehor. Bylo to na vzdalenost 
asi 5 km a po vedeni. Jeho pristroj pra- 
coval na mechanicko-optickem princi- 
pu s Nipkowovym kotoucem. Za dalsi- 
mi pokusy se vydal do Nemecka, kde 
v race 1923 v Berline - Wilmersdorfu 
zridil televizni laborator. 

Prvni uspechyjej dovedly ktomu, ze 
zalozil spolecnost s nazvem Telehor 
A. G. Dostavily se i prakticke vysledky 
- objevil princip radkoveho rozhladu 
s vodorovnym vychylovanim a vychy- 
lovani rastru pomoci piloviteho napeti. 
Na tento princip obdrzel 25. 12. 1923 
v Nemecku patent. Mihaly pak spolu- 
pracoval s AEG a fisskymi postami a 
pri svych dalsich pokusech jiz mel pod- 
poru „referatu pro bezdratovou telegrafii 
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Titulni list Mihalyho knihy „Der 
sprechende Film", ktera vysla roku 
1928 v Berline. Autor se v nl zabyva 
prenosem zvuku, obrazu a filmovou 
technikou 


a ruzne ukoly“ risskych post a take spo- 
lecnosti TEKADE (Telefonapparate 
Kabel und Drahtwerke A. G. - zname 
z ruznych inkurantnich pristroju a sou- 
caste k). 

V unoru 1928 predvadel prenosy Di- 
askopie ze sve laboratore do risskeho 
telegrafniho technickeho uradu a 1 1 . 5. 
tehoz roku predvedl jiz zajemcum z fad 
vyrobnich firem prenos obrazu o roz- 
merech 4x4 cm. Celkem tricetiradkovy 
obraz byl rozlozen do 900 bodu (dnes- 
ni systemy pouzivaji rozklad na asi pul 
milionu bodu!) a prenasen po telefon- 
nim kabelu dlouhem asi 2,5 km. Toto 
predvadel i na 5. nemecke vystave roz- 
hlasu v Berline dne 31. srpna 1928. 
Byla to sice zajimavost, ale kvalita 
obrazu nemohla divaky prilis nad- 
chnout. 

Nemecke risske posty v noci z 8. na 
9. brezna 1929 umoznily v Berline po- 
kus s bezdratovym prenosem obrazu, 
tehdy bez zvuku, s pomoci Mihalyho 
rozkladoveho zarizeni. Signal byl pre- 
nasen pomoci stredovlnneho vysilace 
a prijiman ve vyzkumnych laboratorich 
velkych berlinskych firem, ktere se za- 
jimaly o televizni techniku. Bohuzel, 
cely pokus byl podrizen technicko-fyzi- 
kalnim omezenim, ktere u Mihalyho 
systemu nemohly byt prekroceny. Jeho 
firma Telehor A. G. postupne upadala 
a zustala mu jen hrstka privrzencu. 

Od roku 1 933 se pak venoval pouze 
konstrukcim elektrooptickych soucas- 
tek pro televizni techniku. V race 1935 
zalozil spolu s fyzikem E. H. Traubem 
firmu Mihaly & Traub, ktera se venova- 
la prevazne vyrobe Kerrovych clanku 
(specialni kyveta s vhodnou kapalinou 
umistena v silnem elektrickem poli 
- vyuziva se napr. k modulaci polarizo- 
vaneho svetla). 

Zemrel 29. 8. 1953 v Berline. I kdyz 
se jeho teorie a pokusy dostaly do sle- 
pe ulicky, prece jen v zacatcich televi- 
ze mela jeho prace velky vyznam. 

Max Dieckmann 

Kdyz se dnes divame na televizni 
obraz rozlozeny na 625 radku, stezi si 
dokazeme predstavit, jak asi vypadal 
televizni obraz prenaseny pomoci roz- 
kladu do 20 radku, jak byl poprve pred- 
veden pri prenosu jednoduchych nacr- 
tii v dobe rodici se televize. 

Jednim z vedcu, kteri se nejvice 
zaslouzili o rozvoj televizni techniky 
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v jejich pocatcich, byl nemecky fyzik, 
odbornik v rozvijejici se rozhlasove a 
televizni technice, Max Dieckmann. Na- 
rodil se 5. cervence 1882 v mestecku 
Harzdorf Herrmannsacker, studoval na 
gymnaziu v Lipsku. Nasledovala pak 
vysokoskolska studia fyziky v Gottinge- 
nu, Lipsku a Strassburgu. Na technic- 
ke vysoke skole v Mnichove ve veku 23 
let sva studia dokoncil a Bavorsko se 
od te doby stalo jeho domovinou. Jako 
mlady fyzik prednasel a setkal se po- 
dobne jako Rosing v Rusku s objevem 
Braunovy obrazovky, kterou intuitivne 
povazoval za vyznamny stavebni prvek, 
ktery umozni prenaset obraz na dalku. 

Bylo to jiz v race 1906, kdy se Dieck- 
mannovi podarilo prenest prve primitiv- 
ni a staticke obrazky s rozkladem na 
20 radkii, jako zdroj signalu tehdy po- 
slouzilo zarizeni na principu Nipkowo- 
va kotouce, ale na miste otvoru byly spi- 
ralovite usporadany dratene kartacky, 
spinane pres kovove sablony. Po tech- 
to primitivnich pokusech za pomoci 
soukromeho kapitalu zridil v race 1908 
„Bezdratovou pokusnou stanici pro te- 
legraf a vzdusnou elektrinu" v Grafel- 
fingu. Tam pak provadel pokusy se 
statickou elektrinou, premyslel nad 
otazkami prenosu obrazu, radioveho 
spojeni s letadly a letecke navigace a 
uspesne je resil. 

Dalsim meznikem v jeho zivote ve 
vztahu k televizni technice byl v race 
1925 objev principu rozkladove elek- 
tronky, na ktery prisli spolecne pri praci 
s Rudolfem Hellem. Patent ovsem ob- 
drzel pozdeji Farnsworth. 

V race 1936 byl Dieckmann povo- 
lan na vysokou technickou skolu do 
Mnichova, aby tarn vedl institut (dnes 
bychom rekli katedru) radiotechniky. 
Po roce se stal vedeckym vedoucim 
nove zalozeneho leteckeho vyzkum- 
neho ustavu v Ober-pfaffenhofenu, 
kde stravil zbytek sveho aktivniho 
zivota. 

V roce 1947 odesel do penze a zil 
pak opet v bavorskem Grafelfingu. Tam 
tento pionyr letecke spojovaci techniky 
a televizni techniky zemrel 28. cerven- 
ce 1960. 

Vladimir Kosma Zworykin 

Dalsim technikem, ktery posunul vy- 
voj v oblasti televizni techniky o stupen 
vyse, byl Rus zijici v Americe, Wladi- 
mir Kosma Zworykin, ktery se narodil 
30. 7. 1889 ve meste Murom v Rusku. 
Po dokonceni studia na Institutu tech- 
nologie v Petersburgu odesel dale stu- 
dovat do Francie. Byl studentem i u zna- 
meho profesora Rosinga. 

Behem prvni svetove valky slouzil 
u ruskeho spojovaciho vojska a v roce 
1919 emigroval do USA. Tam pracoval 
v Pittsburgu u Westighouse Electric 
Corporation. Jeho prvnim obecne zna- 
mym uspechem bylo v roce 1923 zis- 
kani patentu na pouziti ikonoskopu ve 
snimaci kamere na pine elektronickem 


principu, coz znatelne zlepsilo kvalitu 
ziskavaneho obrazu. V roce 1924 zis- 
kava patent na prvni pine elektronicky 
televizni system, kde jako prijimaci pri- 
stroj byl tzv. kineskop, predchudce 
dnesnich televizoru. Zworykin pracoval 
od roku 1929 pro RCA, kde se stal na- 
konec i reditelem. 

Televizni technika vsak nebyla jeho 
jedinym oborem, kteremu se venoval 

- spise naopak, i kdyz se venoval i ba- 
revne televizi, na kterou ziskal patent 
v roce 1928. Zabyval se snimacimi 
elektronkami citlivymi na infracervene 
svetlo (vymyslel elektronicky system 
pro ostrelovace-snipery, pouzity nako- 
nec ve 2. svetove valce), elektronovy- 
mi mikroskopy a v nich pouzivanymi na- 
sobici elektronu, scintilacnimi prvky a 
detektory radiace. Firma RCA byla pro 
Farnsworthovu spolecnost silna konku- 
rence. Proto Farnsworth nakonec vy- 
tvoril v roce 1949 spolu s dalsimi spo- 
lecnostmi jeden z nejvetsich koncernu, 
International Telephone and Telegraph 
Company - ITT. 

V 50. a 60. letech se Zworykinovi 
dostalo mnozstvi vyznamnych oceneni 

- od jmenovani cestnym viceprezi- 
dentem RCA (1954), po oceneni nej- 
ruznejsimi medailemi a cestnym clen- 
stvim v mnoha organizacich. Stal se 
napr. prvnim prezidentem Sdruzeni pro 
lekarskou elektroniku a biologicke in- 
zenyrstvi, ziskal Faradayovu medaili 
udelovanou ve Velke Britanii (1965) a 
byl tez autorem rady vyznamnych ve- 
deckych publikaci. Zemrel den pred 
svymi 93. narozeninami, 29. 7. 1982 
v Princetonu, USA. 

Philo Taylor Farnsworth 

Jak jiz bylo receno, jednim z prvnich 
„televiznich“ prukopniku v Evrope byl 
J. L. Baird, ktery pracoval predevsim 
v oblasti dalkovych prenosu obrazu. 
Dalsi vedci pracovali na opacne strane 
Atlantiku. 

Jednim z nich byl Philo Taylor 
Farnsworth. Ten se narodil 19. 8. 1906 
v Beaveru ve state Utah a rodina se brzy 
prestehovala do Rigby ve state Idaho, 
kde mohl Farnsworth junior navstevo- 
vat vyssi skolu. Venoval se hlavne stu- 
diu molekularni teorie hmoty, elektro- 
nove a Einsteinove teorii. 

V roce 1922 si precetl popularne 
vedecke pojednani ruskeho televizni- 
ho technika Borise Lvovice Rosinga 
o „elektrickych prenosech jednodu- 
chych obrazu na dalku“. Tato myslenka 
ho natolik zaujala, ze se sam podob- 
nym pokusum venoval. 


Nakres 

Farnsworthovy 
sntmaci obrazove 
etektronky 
s velkou citlivosti, 
urcene pro spatne 
osvetlene sceny 


V letech 1923 az 1925 navstevoval 
univerzitu v Provo (Utah), ale ve dru- 
hem rocniku mu zemrel otec a univer- 
zitu nedokoncil. Podarilo se mu ziskat 
penize na realizaci myslenky sveho vy- 
lepseneho televizniho systemu. Zacal 
se svymi vyzkumy a brzy spatrila svet- 
lo sveta jeho elektronicka snimaci tele- 
vizni kamera. 

Jako predpoklad dalsiho rozvoje se 
mu podarilo vyvinout v roce 1928 elek- 
tronickou snimaci elektronku zvanou 
Dissektor, coz byl zakladni prvek jeho 
nove kamery, ktera jiz umela plosny 
obraz elektronicky rozclenit na jednot- 
live body. Ve stejnem roce obdrzel na 
tento zpusob rozkladu obrazu patent, 
a nove moznosti, ktere tento princip pri- 
nesl, demonstroval na Franklinove in- 
stitutu ve Filadelfii. 

Jeho kamery se vyrabely dels! dobu 
prumyslove v televiznich laboratorich 
v San Franciscu, ktere byly v roce 1 929 
prejmenovany na Farnsworth Televisi- 
on Inc. of California. Jeste v roce 1936 
nemecka televizni spolecnost vyrabe- 
la kameru na tomto principu s nazvem 
„olympijska kamera". To jiz mel za se- 
bou radu patentu - na zpusob rozkla- 
du, na zaostrovani, synchronizaci, 
zmenu kontrastu, vykonu atd. I pres 
nesporny pokrok v kvalite prenasene- 
ho obrazu stale nebylo mozne souperit 
se zaznamem obrazu na filmovy pas. 

Ke komercmmu vyuziti svych vyna- 
lezu zalozil tento nadany vedec v roce 
1932 spolecnost Philo Corporation ve 
Fort Wayne (Indiana). Tam se od roku 
1938 az do vstupu Spojenych statu do 
valky vyrabely i televizni prijimace. Be- 
hem valecnych let se venoval vylepso- 
vani tehdejsi radarove techniky. 

Po valce zalozil spolu s dalsimi spo- 
lecnostmi ohromny koncern ITT. Farn- 
sworth sam pak jeste pracoval v oblas- 
ti vyuziti atomove energie a je drzitelem 
nekolika patentu i z oboru nuklearni 
fuze. Celkem do s ve smrti 11.3. 1971 
v Salt Lake City ziskal pres 300 pa- 
tentu. 

Mozna vice nez technici jej znaji fi- 
lateliste - jeho portret najdeme i na ame- 
rickych znamkach z roku 1983. 
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Ovladani hracek pocitacem 

Pffpravky pro vyuku programovani 


Ing. Michal Cerny 


Pocitace (PC) se dnes pouzivaji terrier vyhradne uzivatelsky, tj. provozuji se na nich hotove zakoupe- 
ne programy, pomoci kterych se vykonava cilova prace - napr. edituji texty, obrazky apod., vede ucet- 
nictvi, vyuziva Internet atd. atd. Vytvorit potrebne programy uzivatele neumeji a ani je to nezajima. Uka- 
zuje se vsak, ze znalost programovani je uzitecna, a ze programatori maji vynikajici profesionalni 
uplatneni. Programovani take v sobe soustred’uje v daleko vyssi mire nez jine cinnosti schopnost ana- 
lyzovat problemy, formulovat myslenky a logicky myslet, coz vsechno jsou dovednosti, ktere prispl- 
vaji k rozvoji osobnosti. 

Programovat je vhodne se ucit jiz v detskem veku, kdy to nejlepe „leze do hlavy“. Tvorba vlastnich 
programu je pro deti tez vhodnou alternativou k pouhemu hrani her na PC. Deti je vsak k programovani 
nutne motivovat, aby jejich zajem rychle neochabl. Vyuku programovani Ize ucinit zajimavou napr. tim, 
ze programy pres porty PC ovladaji a rid! mechanicke hracky a vykonavaji tak atraktivni cinnost, ktera 
pritahuje k dalsi praci. Pri stavbe hracek si deti take rozvijeji svoji zrucnost v oblasti hardware. Navrze- 
ne hracky od nejjednodussich az po slozite a priklady k nim vytvorenych programu (v jazyce Pascal) 
tvori napln tohoto cisla KE. Pritom se predpoklada, ze deti nebo jejich blizci dospeli maji zakladni zna- 
lost programovaciho jazyka, vlastni vyuka programovani neni obsahem tohoto clanku. 

Popisovane namety hracek a programoveho vybaveni najdou samozrejme uplatneni i ve svete 
dospelych, kde mohou slouzit jako voditko a inspirace pro vlastni konstrukce mericich pripravku 
a ovladacich zarizeni. 


Uvod 

Ackoli vekem rozhodne nepatrim 
jeste mezi pametniky, v oblasti vyvoje 
vypocetni techniky pamatuji celkem 
dost. Nechci se vsak venovat popisu a 
historii technickeho vyvoje pocitacu, 
chci jen na jejim pozadi sledovat pri- 
stup k nim prostrednictvim nekolika 
osobnich postrehu. Tyto zazitky me 
presvedcuji o smysluplnosti tematu, 
ktere otvirame. 

Kdyz jsem se poprve setkal s poci- 
tacem na jakesi exkurzi, byl to sal piny 
kovovych skrini, mezi nimiz lehce 
zmatene pobihalo asi deset operato- 
rs. Vsude hucely ventilatory, obcas 
zarachotila ctecka dernych stitku a za- 
klepal elektricky psaci stroj, ktery byl 
jedinym vystupnim zarizenim tohoto 
monstra. Vysvetlovali nam, tehdy sko- 
lakum zakladni devitilete skoly, jaky je 
to uzasny vydobytek socializmu (tak 
krasne slovo utkvi v pameti na dlouha 
leta), a ze kdyz budeme pilne studo- 
vat, muzeme jako tito vedci s podob- 
nymi stroji pracovat take. 

Prvni programatorske zacatky 
jsem si odbyl na stredni skole. Byla to 
doba, kdy se objevily i prvni mikropro- 
cesory, kdy v Amaterskem radiu spo- 
radicky vychazely prvni clanky o ama- 
terskych mikropocitacich v USA, a 
kdy se pres Tuzex daly sehnat prvni 
programovatelne kalkulatory. A co se, 
panecku, vsechno veslo do tech pa- 
desati instrukci a deseti pameti na 
cisla! Kolik hricek i uzitecnych pro- 
gramku tehdy vznikalo pod lavici. 

Ackoli od toho prvniho setkani 
uplynulo jen par let, pristup se pro- 


pastne zmenil. Ubylo vet o uspesich 
socializmu, ony by take nad kalkulato- 
rem Ti-58, stejnym typem, ktery se po- 
dilel i na letech Americanu na Mesic, 
jaksi nevyznely. Avsak predevsim 
byla tato technika dostupna i nam, 
stredoskolakSm, i kdyz zdaleka ne 
vsem, a jen diky vekslakSm, bonum a 
Tuzexu, a za cenu prevysujici mesicni 
plat rodicS. Nebyla to uz technika jen 
pro vedce v klimatizovanych salech. 

Na stredni skole jsem se take po- 
prve setkal s vyukou programovani 
v jazyce, konkretne v Pascalu. Ucili 
nas lektori z MFF UK, kde jsme take 
meli i moznost s ve programy odladit a 
spoustet na EC1050 - doufam, ze si 
ten typ pamatuji spravne. Prace s der- 
nymi stitky sice nebyla nic moc, ale 
zato vysledkem uz byla tistena sjetina 
na papire, v niz jsme mohli pouzivat i 
semigrafiku, a to bylo opravdu neco ji- 
neho, nez mala cervena cislicka na 
displeji kalkulatorS. 

Vyuka programovani byla koncipo- 
vana jako vyuka jazyka i zakladnich 
algoritmS, a vzpominam, ze to velmi 
nezazivne a casto se nam ztracel smy- 
sl toho, co prave delame. Svetlymi 
okamziky byla prave praxe na pocitaci 
i pres nutnost casteho a pravidelneho 
dojizdeni, vzdyt’ po oprave jakekoli 
chyby se vysledek dal zjistit az v dav- 
ce druhy den. Tato vyuka nam dala 
dobre zaklady behem maleho poctu 
hodin, avsak k poutavosti mela dost 
daleko. Kdyby to tehdy bylo dobrovol- 
ne, urcite bych o tento zazitek prisel. 

Krome algoritmizace uloh a synta- 
xe jazyka jsme se samozrejme museli 
seznamit i s technickou podstatou veci, 


moznostmi vstupnich a vystupnich za- 
rizeni a vnitrni prezentaci dat, ale jen 
opravdu v nutnem rozsahu, ktery jsme 
take prakticky pouzivali. Nikdo nas 
nenutil znat detailne strukturu toho po- 
citace, scitat misto nej data v oktalo- 
vem kodu nebo mit v malicku anato- 
mii jeho tiskaren. V tomto smeru jsme 
pristupovali k pocitaci jako uzivatele, 
prima obsluha byla veci operators. 

Zastavim se zase u pristupu k po- 
citacum, se kterym jsme se tehdy se- 
tkavali. Ten, kdo pracuje s pocitacem, 
je programator (operatory provozu tise 
opomijim). Tedy - kdyz chcete praco- 
vat s pocitacem, musite se naucit pro- 
gramovat. DSIezita veta, jeste se k ni 
vratim. Uzivatelske programy tehdy jiz 
nepochybne vjiste forme existovaly, 
ale nikdy jsme se s nimi nesetkali. 

Preslo zase par let, vlastne prave 
dva, mozna nejvys tri roky. Na vysoke 
skole jsem jeste zazil pocitac PDP 11 
v jakesi vychodni kopii. Data jsme pro 
nej pripravovali na derne pasky - to 
byl panecku rachot, kdyz se na chod- 
be rozjelo patnact derovacek soucas- 
ne. Ucili jsme se Fortran a zacinali 
psat tu a tarn i programy, ktere k nece- 
mu byly - tedy krome vyukovych cilS. 

Pres CSVTS jsme meli moznost se 
docela dukladne seznamit i se stolni- 
mi kalkulatory Hewlet Packard, ktere 
se vzhledem, a do jiste miry i moz- 
nostmi, jiz podobaly tomu, co dnes 
nazyvame osobnim pocitacem. A take 
tyto kalkulatory prinesly dalsi jazyk, 
Basic, velebeny i proklinany, kteremu 
melo patrit nasledujicich nekolik let. 

Na stolnich kalkulatorech HP jsem 
se poprve setkal s cistymi uzivatelsky- 
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mi programy, tedy takovymi, ktere 
stacilo spustit a pak jiz komunikovat 
s programem jen na zaklade obecne 
znalosti problematiky. Byly to progra- 
my vetsinou ziskane spolu s kalkulato- 
rem nebo napsane pracovniky katedry, 
ale byly to opravdu programy uzivatel- 
ske. Bylo mozne s nimi pracovat, resit 
smysluplny realny problem a pritom 
nebyt ani trochu programatorem. 

Vedle pocitacovych zazitku „oficial- 
nich”, tedy spojenych se skolou, se 
v te dobe stala vcelku nenapadna, 
avsak naprosto prevratna vec. Bylo 
mozne se opatrit pocitac domu a delat 
si s nim cokoli. Sinclair ZX-81 byl prv- 
ni pocitac, ktery stal mene nez kurs 
programovani (tedy pry alespon v Bri- 
tanii, u nas to bylo piece jen vyrazne 
jinak). I u nas vsak odstartoval prunik 
pocitacu do domacnosti. 

Opravdovy vrchol rozsireni osmibi- 
tovych pocitacu prineslo ZX Spectrum. 
Z dnesniho pohledu a ve srovnani 
s nynejsim standardem vykonnosti 
jednoducha hracka privedla prede- 
vsim prostrednictvim her k pocitacum 
obrovske mnozstvi mladeze. Ale ne- 
jen hry bezely na ZX Spectru. Objevilo 
se i hodne uzitecnych aplikacnich pro- 
gramu. Postupem casu byly na tento 
pocitac implementovany i ruzne pre- 
kladace jazyku a dokonce system 
CP/M, ktery ho dal priblizil „opravdo- 
vym” pocitacum. 

Snad kazdy majitel Spectra zkusil 
alespon trochu i jeho programovani. 
Do skol a krouzku se dostaly ceske 
PMD-85, IQ 150, PP, dovozove Atari, 
Sharpy MZ-80 a mnohe dalsi pocita- 
ce. Nebudu rozebirat jejich moznosti a 
technickou uroveii, ale svuj ucel vetsi- 
nou plnit mohly. Nestestim byla prede- 
vsim roztristenost typu (casto i v ramci 
jedne skoly) a metodiky prace s nimi. 
Nekompatibilita, prilisna ruznorodost 
a setrvacnost v mysleni hodne prispe- 
ly k tomu, ze tyto pocitace odvedly jen 
zlomek prace, kterou mohly zvladnout. 

Behem zhruba jen deseti, dvanacti 
let se vsak naprosto zmenil pristup 
k pocitacum. Od stroju urcenych jen 
pro kvalifikovane profesionalni obslu- 
hy az po hracku pro deti. I ve vyuce 
prace s pocitacem nastal obdobny po- 
sun, ale s urcitym, dokonce Ize rid 
znacnym zpozdenim. Od kurzu pro 
profesionaly, pres vyuku na vysokych 
skolach az po zajmove krouzky pro 
deti kolem deseti let. Pristup lidi a je- 
jich mysleni se vsak prizpusobuje po- 
maleji, nez odpovida dnesni rychlosti 
technickeho vyvoje. 

Poznal jsem vyuku pocitacu, jak se 
rika, z obou stran katedry. Zacinal 
jsem obcas ucit dobe, kdy zakladem 
oficialni metodiky byla vyuka jazyka 
Basic. Prace s pocitacem se prakticky 
ztotoznovala s programovanim v tom- 
to jazyce. Bylo hodne lidi, kteri si uve- 
domovali nesmyslnost takoveho pri- 
stupu, jenz obcas vedl i ke krajne 
absurdnim situacim. 

Zazil jsem napr. na vlastni kuzi 
kurz programovani v Basicu pro funk- 
cionare Svazarmu, kteri byli prevazne 


v duchodovem veku nebo tesne pred 
nim, a vetsinu zivota vojaky z povola- 
ni, predevsim politickymi pracovniky. 
Kdo zazil socialistickou vojnu, vi, co 
tim myslim. Mista ve Svazarmu byla 
pak pro ne pokracovanim a dokonce- 
nim jejich kariery. O projevovanem 
zajmu a smysluplnosti ci uspesnosti 
takoveho kurzu si tezko nekdo mohl 
delat jakekoli iluze. Avsak prece jen 
jisty vysledek to melo. Pro me jako 
lektora to byl zazitek a zkusenost, na 
kterou nikdy nezapomenu. 

Programovani jako synonymum 
pro praci a pocitacem nastesti casern 
ustoupilo, ale zastavme se u vyvoje 
zpusobu jeho vyuky. Metodika nesta- 
cila sledovat rychly vyvoj techniky a 
presun ke stale mladsim vekovym 
skupinam. Postupy efektivni pro vyu- 
ku dospelych slo u deti pouzivat jen 
s obtizemi, bez vyrazneho prizpuso- 
bovani lektorem viibec ne. 

Pokud se podivame na ucebnice 
programovani nebo prirucky, obsahuji 
vetsinou zaklady jazyka a priklady, 
samozrejme i urcite obvykle algoritmy, 
zakladni technicke pojmy a vysvetleni 
cinnosti pocitace. Typickymi ulohami, 
ktere najdeme, je vypocet faktorialu, 
numerickych rad, hiedani blizkych 
dvojic prvocisel, statisticke vypocty, 
operace s maticemi apod. Vsechny 
tyto oblasti prikladu vyzaduji urcite 
znalosti matematiky, coz zasadnim 
zpusobem omezuje jejich pouzitelnost 
pro deti zakladnich skol. I pokud od- 
povidajici znalosti matematiky jiz maji, 
nejsou pro ne takove priklady motivu- 
jici a vidi v nich jen skolni priklady 
vjinem kabate. Podle toho k nim take 
pristupuji. 

V posledni dobe prevlada naprosto 
opacny pristup, nez jaky byl pred de- 
seti lety. Da se charakterizovat pribliz- 
ne takto: „Kazdy by se musi naucit 
pouzivat pocitac”. Pritom pouzivanim 
pocitace, ci jestli chcete, praci s nim, 
se vetsinou rozumi predevsim zaklad- 
ni ovladani textoveho editoru a tabul- 
koveho procesoru, v mens! urovni 
seznameni s nekterym grafickym pro- 
gramem a jista predstava o databa- 
zich. Navic se pridava cim dal vice 
orientace na internetu a vyuziti elek- 
tronicke posty. 

To vse je uzitecne, ale odsouvani 
znalosti programovani zcela stranou a 
predevsim soustavne zduraznovani, 
ze „normalni” lide programovat nepo- 
trebuji a nikdy potrebovat nebudou, to 
pokladam za nesmysl a blud, ktery je 
jeste mnohem horsi a vymsti se ne- 
srovnatelne vice, nez drivejsi pristup 
typu „co uzivatel pocitace, to progra- 
mator”. 

Pokud si chcete overit, s cim jsou 
deti skolniho veku o pocitacich sezna- 
movany (pokud vubec s nimi sezna- 
movany jsou), projdete si treba schva- 
lenou ucebnici „Prace s pocitacem” 
[1] pro predmet „Prakticke cinnosti” 
v sestem az devatem rocniku zaklad- 
nich skol. Z 256 stran je programova- 
cim jazykum a programovani veno- 
vana jedna strana, na niz je velmi 


obecne vysvetlen pojem program a 
programovaci jazyk. Otistena ukazka 
vypisu zdrojoveho textu v kontextu 
s vysvetlenim pusobi jedine jako za- 
strasujici prvek ukazujici hruzu toho, 
co programovani znamena. Z textu 
pak budu citovat dve vety, z nichz dru- 
ha je v originale tucne zvyraznena: 
..Programy tedy vytvareji odbornici a 
ostatni uzivatele pocitacu si pak tyto 
programy kupuji a pouzivaji na svych 
pocitacich. Bezny uzivatel, kterym jsi 
nejspis i ty, proto nemusi mit o zpiiso- 
bech programovani ani tuseni.” 

Abych teto knize nekrivdil, v jine 
casti jsou venovany dalsi ctyri strany 
povsechnemu povidani o programo- 
vani v Logu, autorskych systemech a 
o tom, ze programovani vyzaduje lo- 
gicke mysleni. 

Programovani neni jen cinnost, pri 
ktere se zapisuje program v danem ja- 
zyce. Je to predevsim schopnost for- 
mulovat problem a formulovat ho 
zcela presne. Dale je to schopnost 
rozdelit vetsi problem na radu men- 
sich, delit tak dlouho, az castecne ulo- 
hy je mozne vyresit samostatne. Je to 
schopnost spojit drobne vyresene ulo- 
hy zpet do fungujiciho celku. 

Programovani je i umeni hledat 
v problemech zakonitosti a zavislosti a 
vyuzivat jich, venovat pozornost sebe- 
mensimu detailu a soucasne neztra- 
cet prehled o celku. Zapis programu 
v jazyce je az tim temer poslednim 
krokem, ktery v porovnani s predcho- 
zimi obsahuje jen nepatmou cast zna- 
losti a tvurciho mysleni. 

Navyky ziskane i jednoduchym 
programovanim vyrazne pomahaji re- 
sit kazdodenni situace, ktere s pocita- 
ci nemaji vubec nic spolecneho. Tyto 
navyky se pak skola snazi pestovat 
roztristene a po radu let podstatne 
slozitejsim zpusobem. 

Ze znalosti, ktere se deti uci ve 
skole, rozhodujici vetsinu nebudou ni- 
kdy ve svem praktickem zivote potre- 
bovat (samozrejme mimo takovych 
veci, jako znalost cteni, psani a za- 
kladni matematiky, ci presneji receno 
aritmetiky). Presto se je uci a ucit 
maji, protoze se tim vytvari jadro jejich 
budouciho vseobecneho prehledu. 
Kdyz se pak postupem casu speciali- 
zuji, znalosti zakladni skoly jsou tim, 
na cem stavi. Neni mozne predem ur- 
cit, co budou potrebovat a co ne, ani 
neni mozne jim vnucovat specializaci 
jiz od prvnich trid. A prestoze vetsina 
nikdy neupotrebi a zapomene znalosti 
z biologie, chemie, fyziky, literatury a 
mnoha dalsich predmetu, presto se 
tyto predmety uci. 

Programovani, ktere v sobe sou- 
stred’uje v daleko vyssi mire nez jine 
cinnosti schopnost analyzy problemu, 
formulovani myslenek a logickeho 
mysleni, je predkladano detem jako 
neco, co nastesti nikdy nebudou po- 
trebovat. Pritom prave programovani 
je mozne ucit tak, aby samo zaujalo a 
bylo prijimano s chuti. Z tohoto duvodu 
myslim, ze by se programovani melo 
objevit v osnovach ve vetsim rozsahu 
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v ramci predmetii seznamujicich 
s pocitacem, a rozhodne ne jako neco, 
pred cim skola chrani a varuje. 

Jeste jeden pohled na vec je velmi 
dulezity, a to je stale klesajici vek deti 
pri jejich prvnich kontaktech s pocita- 
cem. Je to naprosto logicke. Pokud 
kdysi dite sledovalo cele dny otce ko- 
vare pri praci, zcela samozrejme busi- 
lo jakoby kladivkem do veci kolem 
sebe. Vlastnost napodobovat dospele 
je pro deti velmi priznacna. Stejne tak, 
bude-li dite sledovat predevsim vare- 
ni, zacne si na nej take hrat. Jestlize 
dnes dite vidi rodice doma u pocitace, 
a pri navsteve u nich v praci vidi poci- 
tace rovnez (a kde dnes pocitac nena- 
jdete ...), chce s mm „pracovat” take. 

Moje osobni zkusenost je ta, ze syna 
ve veku batolete neprimelo nic k pohy- 
bu tak spolehlive a rychle, jako moz- 
nost dostat se ke klavesnici. Brzy do- 
stal svou vlastni klavesnici, vyrazenou 
a vycistenou, pozdeji i nefunkcni mo- 
nitor, takze mel svuj vlastni „pocitac”. 
Ze na tom monitoru nic nebylo? Pres 
to se detska predstavivost snadno pre- 
nese. Byla to urcitou dobu nejmilejsi 
hracka. Oboji stalo dohromady asi 
40 Kc. Urcite to nebyl ojedinely pripad, 
podobne klavesnice jsem od te doby 
videl v mnoha detskych ohradkach. 

At’ chcete nebo ne, deti se dnes 
najdou cestu k pocitaci samy uz v pred- 
skolnim veku, driv nez zvladaji cteni a 
psani. Pres skolky, pres kamarady, 
doma. Je predevsim na dospelych, 
jestli budou v tomto veku formovat je- 
jich postoj a vztah k pocitacove tech- 
nice na hrach, kde motorovou pilou 
rozrezavaji zaziva mutanty za revu a 
strikani krve, nebo jestli budou mit 
deti k dispozici tvurci programy a hry 
primerene svemu veku. Takovych jiz 
dnes Ize na trhu nalezt celou radu. 

Opet neodsuzuji smahem vsechny 
hry, ani ty nejtvrdsi bojove. Dokonce 
tvrdim, ze v urcitych situacich citelne 
pomahaji uvolnit vztek a agresivitu a 
je urcite lepsi rozrezat na pocitaci par 
potvor motorovou pilou, nez servat 
spolupracovniky nebo schvalne neko- 
mu dupnout na nohu. 

Jaky si muze vytvorit nazor na po- 
citace dite, ktere od predskolniho 
veku zna jen hry u kamaradu, u rodicu 
vidi predevsim ucetnictvi a texty, ve 
skole se po nekolika letech uci kate- 
gorizovat druhy aplikacnich programu 
a je zkouseno z casti pocitace a tech- 
niky, ktera byla zastarala uz v dobe 
vyjiti ucebnice? Tim vubec nechci jak- 
koli napadat autory ucebnic, doba na- 
psani ucebniho textu, jeho schvaleni 
a vydani a rozsireni v praxi je priblizne 
stejna jako doba, za kterou se pocita- 
ce dnes vyrazuji kvuli moralni zastara- 
losti. I proto v teto oblasti zalezi mno- 
hem vie nez v jinych, „stabilizovanych” 
oborech na lidech a na jejich pristupu. 

NEPODCENUJTE SCHOPNOSTI 
DETI! Zvladnout zaklady programova- 
ni je pro ne lehke a prirozene, stejne 
jako mnoho jinych veci. Deti dokazou 
nesrovnatelne vie, nez si treba jen pri- 
poustime, ale musi k tomu mit motiva- 


ci a nesmi citit, ze jsou k cemukoli nu- 
ceny. Tou motivaci nejsou znamky, 
cokolada za kus programu nebo do- 
konce natlak a hrozba trestu, ale moz- 
nost prace na pocitaci jako takova, 
prace, ktera ma nejaky vysledek, 
efekt, da se videt a osahat. 

Ma-li se udrzet pozornost a chut’ 
deti do prace, musi kazda cinnost, 
kazdy pokus vest k co nejefektnejsi- 
mu vysledku ve velmi kratke dobe, 
konkretne behem patnacti, nejvyse 
dvaceti minut. Vysledek nesmi byt od- 
kladan na pristi hodinu, na pristi 
schuzku krouzku. Pokud se v teto 
dobe vysledek nedostavi, znacna cast 
deti ztraci zajem. Jedna z veci, kterou 
deti (zejmena ty mensi) nedokazi a 
nemuzeme ji po nich ani chtit, je pra- 
covat („dobrovolne” a „radostne”) delsi 
dobu s vizi, ze to nekdy pozdeji k ne- 
cemu bude. 

Budeme-li uvazovat dite predskolni- 
ho veku, nelze pocitat se znalosti cteni 
a psani, tim mene pak matematiky. Uz 
od ctyr let vsak pro dite neni problem 
pracovat s mysi a vzajemne prirazo- 
vat symboly na obrazovee a klavesnici 
- stisknout odpovidajici tlacitko. S mysi 
se dokonce vetsina deti skamaradi a 
ziska zruenost mnohem rychleji, nez 
dospeli na pocitacovych kurzech. 

Karel 

Pred lety byl na skolnich osmibito- 
vych pocitacich popularni programo- 
vaci jazyk „Karel", ktery spocival ve 
vedeni figurky na ctvercovych polich. 
Zakladni povely jako vlevo, vpravo, 
krok vpred, poloz (znacku), seber 
(znacku) bylo mozno zadavat primo 
k vykonani, nebo z nich sestavovat 
program. Program, ktery vyzadoval 
mysleni a logiku, a pritom vystacil 
s nekolika obecne srozumitelnymi po- 
vely. Soucasne vsak zapis povelii slo- 
vy (ve vetsine implementaci) omezo- 


val dolni vek pro Karla priblizne na 
druhou tridu ZS. 

Vetsina detskych programku v Kar- 
lovi se soustredila na to, ze byl na plo- 
se vykreslen jednoduchy domecek, 
oramovany hranice plochy apod. V dal- 
sim postupu pak pochopili zaci pouzi- 
vani podprogramu a rozhodovacich 
funkei, pozdeji rekurze. Hledala se 
cesta z bludiste nebo dokonce simulo- 
valy problemy slozitejsi, napr. zname 
Hanojske veze. To vsak uz opravdu 
nebylo pro kazdeho. Videl jsem treba 
i vypocty matematickych operaci pro- 
vadene pomoci znacek v Karlovi. 

Tento jazyk deti vetsinou zaujal 
alespon na nejakou dobu, vystup byl 
pro ne efektni (na urovni tehdejsi 
techniky a zvyklosti), srozumitelny, 
psani programu se nekterym zalibilo, 
jinym ne. A to je to dobre a dulezite, 
deti dostaly moznost primerenou sve- 
mu veku. Pristupnou formou Karel se- 
znamoval deti s tim, co programovani 
je a umoznoval jim si ho osahat. Koho 
to chytilo, nasel si cestu k dalsim za- 
jmovym krouzkum a jinym programo- 
vacim jazykum, moznost vyuzil. Koho 
ne, mel celkem bezbolestnou zkuse- 
nost a vlastni nazor. Namisto tohoto 
pristupu dnes vetsinou skola nejen 
moznost programovat nedava, ale 
casto od nej vicemene zaky odrazuje. 

Omlouvam se tern skolam a prede- 
vsim tern pedagogum a dobrovolnym 
vedoucim krouzku, kteri se pravem 
predchozimi radky mohou citit uraze- 
ni, protoze se ze vsech sil snazi, aby 
u nich byla situace jina. Vim, ze lec- 
kde je lepsi, nekde i presne opacna, 
takova mista existuji. Jsou vsak spise 
vzacnosti. 

Baltik 

Pokracovatelem jazyka Karel se 
stal Baltik ceske firmy SGP Systems, 
s.r.o. Tento program je mimoradne 
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Obr. 1. Ukazka programu napsaneho vjazyku Baltik 
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vhodny pro deti, ktere bavi tvorivy pri- 
stup, a to je pri vhodnych podminkach 
vetsina. Baltik se ovlada mysi, i ke 
tvorbe programu staci sestavovat ob- 
razkove symboly. Proto je Baltik na 
rozdil od starsiho Karla velmi dobre 
zvladnutelny uz pro ctyrlete deti, i kdyz 
pine vyuziti jeho moznosti vyzaduje 
vyssi vek, rekneme 10 az 12 let. Tech- 
nicky nema program velke naroky, po- 
staci pocitac 486 s Windows 95. 

Prostorem, v nemz se Baltik pohy- 
buje a kouzli, je pracovni plocha okna 
- scena. S Baltikem muzeme pracovat 
v nekolika rezimech. 

Nejmensi uzivatele nemusi pra- 
covat prirno s figurku Baltika, mo- 
hou vytvaret obrazky na scene tim, ze 
z rozsahle banky obrazku a jejich frag- 
mentu vybiraji jednotliva pole a preta- 
huji je na scenu, kde z nich skladaji 
vetsi celky. 

Kdyz zvladnou zakladni zrucnost 
prace s programem (zejmena praci 
mysi) a pochopi symboly, mohou zacit 
vyuzivat figurku Baltika pfimymi pove- 
ly zadanymi kliknutim na prislusny ob- 
razek. Baltika vedou na zvolene mis- 
to, kde pricaruje vybrany predmet. 
Opakovanim tohoto postupu opet 
vznikaji predevsim obrazky. 

Nejvyssi stupeii je programovani 
cinnosti Baltika i s moznosti vyuziti 
dalsich jednoduchych funkci. Zasobu 
predmetu Ize doplnovat o svoje vlast- 
ni, stridanim obrazku a jejich casova- 
nim i vytvaret jednoduche animace, 
coz je pro deti velmi atraktivni. Priro- 
zena detska soutezivost je rozvijena 
i vypisovanim soutezi v programova- 
ni. Ukazku zapisu programu najdete 
na obr. 1. 

Deti se nenasilnou formou uci prin- 
cipy programovani a na zadany pro- 


blem ziskavaji prirozenou cestou po- 
hled, ktery si jinak o nekolik let pozdeji 
musi pracne osvojovat. 

Prace s Baltikem je podporovana 
i existenci vydane ucebnice [2], do- 
stupnosti funkcni demonstracni verze 
programu zdarma, bezplatnych semi- 
naru pro ucitele a informatiky a konec 
koncu i nizkou cenou programu v pine 
verzi pro skoly. Podrobnosti vcetne 
kurzu prace s Baltikem muzete najit 
treba na strankach www.sgp.cz . 

Celkove Ize rici , ze Baltik a jeho 
podstatne narocnejsi pokracovatel 
Baltazar predstavuji vyborne zvladnu- 
ty a uceleny system vyuky programo- 
vani pro deti, doplneny promyslenou 
podporou firmy. 

Protoze kousek textu z uvodni in- 
ternetove stranky firmy SGP venova- 
ne Baltikovi presne vystihuje podstatu 
veci, dovolim si jej se souhlasem au- 
tora doslovne citovat: 

Pan Soukup vzkazuje detem: 

„Neverte tem dospelym, kteri vam 
tvrdi, ze je zbytecne ucit se programo- 
vat. Za par let se totiz bude programo- 
vat temer vsechno. Uz dnes si bez pro- 
gramovani nevytvorite ani kloudnou 
www stranku. Uz dnes ve svete chybi 
2,5 milionu programatoru. Proto si dob- 
ry programator ve svete uz dnes vyde- 
la 200 000 Kc mesicne. Dobrym pro- 
gramatorem se ale nestanete pres noc. 
Pokud se chcete stat dobrym progra- 
matorem, zacnete se ucit vcas! Zacne- 
te od zakladu! Zacnete s Baltikem. “ 

Vzkaz ucitelum a rodicum: 

„Nebojte se ucit deti programovat. 
V zivote se jim to bude hodit. Uvedo- 
mili jste si nekdy, jaky je vlastne rozdil 
mezi programatorem a uzivatelem? 
Stejny jako mezi ridicem a cestujicim. 


Programator (ridic), umi pocitac ovla- 
dat, uzivatel (cestujici) jej umi pouze 
pouzivat. Vsichni vime, ze kazde dite 
chce jiz od malicka umet ridit. Nebran- 
me mu v tom, ale naopak, ucme deti 
ridit. Az budeme v duchodu, uzivatele 
nas neuzivi. A jenom na zaver. Neza- 
mestnanych uzivatelu znate jiste 
spousty. Ale znate nejakeho neza- 
mestnaneho programatora? Z kazde- 
ho zaka jiste nebude profesionalni 
programator pocitacu (tak jako z kaz- 
deho zaka autoskoly nebude profesio- 
nalni ridic). To neni ani nasim cilem. 
Ale umeni ovladat pocitace a zaklady 
logickeho mysleni se budou hodit 
KAZDEMU a VZDY. 

V informacni spolecnosti bude zna- 
lost programovani velikou vyhodou. 
Dejte svym zakum a detem sanci!” 

Petr 

Dalsim velmi zajimavym progra- 
mem, ktery je schopen pokryt jeste 
podstatne sirs! spektrum vekovych ka- 
tegorii i zamefeni a zajmu, je progra- 
movaci nastroj Petr od ceske firmy 
Gemtree software s.r.o. 

Je urcen pro Windows 95, 98, NT 
i 2000 a podporuje i tvorbu 3D grafiky, 
praci se zvuky, animace, operace 
s porty (pro nas obzvlaste zajimave), 
komunikace po siti, dalkove rizeni 
programu v realnem case apod. Velmi 
dulezitym prvkem je zobrazovani pro- 
gramu ve forme prehledneho stromu. 

Pro nejmensi deti nabizi Petr stej- 
ny zpusob pristupu jako Baltik. Vy- 
tvareni, presneji receno sestavovani 
obrazku na plose, tvorbu vlastnich ob- 
razku v jednoduchem grafickem pro- 
stredi, vse je ovladatelne pretahova- 
nim grafickych objektu mysi. 

Prostredi, ktere Petr nabizi, je vsak 
prece jen trochu slozitejsi a objevuji 
se v nem od pocatku pojmy ze skutec- 
neho programovani - promenne, para- 
metry, deklarace atd. I kdyz je mozne 
pro jednoduche pouziti obejit se bez 
znalosti cteni jen s vyznamem obraz- 
ku, prece jen nesrovnatelne vetsi na- 
bidka prvku dela program pro male 
deti podstatne mene prehledny. 

Co je nevyhodou pro nejmensi, je 
neocenitelnou vyhodou pro starsi deti 
a pokrocile programatory. Petr nabizi 
aritmeticke a logicke operace, praci 
s textem, predmety (obrazky 32x32 
bodu pokladanymi na plochu), vetsimi 
obrazky ve formatu BMP, pohyblivymi 
grafickymi sprajty, digitalizovanym zvu- 
kem (WAV) i syntezou hudby (MIDI). 

Diky temto vlastnostem je mozne 
psat v tomto prostredi nejen jednodu- 
che ..placate” hry doplnene zvuky 
(jako jsou zname zizaly, zavody auti- 
cek, pexeso, obrazkove knizky poha- 
dek vcetne hlasoveho vystupu atd.), 
ale i 3D aplikace s viditelnosti (bojovy 
simulator tanku, zobrazeni v deskrip- 
tivni geometrii apod.). Jeden z prikla- 
du je na obr. 2. 

Programy, ktere Ize v Petrovi tvorit 
vsak nemusi nest tematicky ani na po- 
hled sebemensi stopu po tom, v ja- 



Obr. 2. Priklad 3D aplikace vytvorene v jazyku Petr 




kern prostredi vznikly. Perfektnim 
prikladem je treba emulator progra- 
movatelneho kalkulatoru Ti-59, ktery 
zobrazuje zcela verne klavesnici kal- 
kulatoru. Klavesnice se ovlada mysi, 
pri stisku klavesy se ozve charakteris- 
ticke lupnuti, typicke pro tehdejsi kal- 
kulatory Ti. I zobrazeni displeje je ver- 
ne, jen vetsi kvuli citelnosti. 

Plocha v okne napravo od kalkula- 
toru muze obsahovat bud’ napovedu, 
nebo je na ni originalni termotiskarna. 
Opet nejde jen o symbolicke naznace- 
ni, pri tisku jezdi hlavicka, ozyva se 
charakteristicky zvuk a zobrazene cis- 
la maji stejnou bodovou podobu jako 
original. Dokonce i utrzeny papir 
z tiskarny ma zoubkovany okraj jako 
ve skutecnosti. 

Ani to vsak neni vse. Kalkulator mel 
vymenne programove moduly - emu- 
lator je ma tedy take, i kdyz jen dva. 
Kalkulator umel ukladat programy a 
data na magneticke stitky, i ty zde 
jsou ve forme souboru s programy. 

Muzete jednoduse riot: Programa- 
tor si vyhral, kde na to asi bere cas? 
Ale to neni vubec dulezite. Tenhle 
program je ve svem zpracovani doko- 
naly a vubec nevypada na to, ze vznikl 
v prostredi, v nemz deti stavi domec- 
ky a sazeji kyticky na zahradku. 

Dalsi, jeste konkretnejsi priklady? 
Treba jednoducha databaze - adresar 
a telefonni seznam. Jeho vzhled i funk- 
ce je naprosto podle zvyklosti ve Win- 
dows, funkcne ani na pohled ho neod- 
lisite od programu, ktere jsou jejich 
prislusenstvim. 

Pro nase tema je zajimavejsi pro- 
gramed ktery vysila na seriovy port 
impulzy. Jejich frekvence se da menit, 
cimz se vjednoduchem pripojenem 
pripravku meni i napeti na integrac- 
nim kondenzatoru, ktere je pak posile- 
no na napeti vystupni. Vysledkem je 
demonstracni pocitacem rizeny zdroj 
napeti, ke kteremu se pripojuje maly 
elektromotorek. 

Vrcholem ukazek u demonstracni 
verze programu je vyvojove prostredi 
pro jednocipove procesory PIC 1 6. Ob- 
sahuje editor assembleru, prekladac, 
disassembler i programator pro jed- 
notku s mikroprocesorem. Velmi pro- 
pracovany je zejmena system napo- 
ved a pomucek pri programovani. 

Jak uz bylo receno, prostredi Petr 
neni mozna tak vhodne pro nejmensi 
a mozna nema takovou podporu za- 
merenou do vyuky ve skolach a krouz- 
cich, ale zato disponuje daleko sirsim 
zaberem aplikacnich moznosti. Z toho 
take plyne, ze v nem uzivatel (postup- 
ne vyrustajici programator) muze setr- 
vat velmi dlouho, doslova od pocatku 
prace s mysi az po technicke, temer 
profesionalni aplikace. 

Podrobnosti a aktuality naleznete 
na adrese www.gemtree.cz. 

Kupte dfteti pocitac ... 

Deti, ktere se jiz v ranem veku do- 
zaduji vlastniho pocitace, je hodne. A 


jejich pocet zavratnou rychlosti roste. 
Vetsinou vsak toto prani vyplyva z tou- 
hy hrat si pocitacove hry doma, tedy 
vicemene bez casoveho omezeni ho- 
dinami vyhrazenymi ve skole, v krouz- 
ku nebo pri navsteve u kamarada. 

Ackoli to dite nedokaze formulovat, 
protoze jeste nezna (nejvys tusi) rela- 
ce vykonnosti pocitacu a pripadne je- 
jich ceny, v podstate jeho naroky na 
pocitac jsou velmi vysoke. Je to dano 
tim, ze nove hry vyzaduji stale silnejsi 
hardware, zatimco bezne ucetnictvi a 
administrativu male firmy muzete po- 
hodlne zvladat na stroji znacne zasta- 
ralem, treba za pet tisic z bazaru. Na- 
roky hernich pocitacu miri obvykle do 
kategorie nejmene petkrat drazsi. 

Nemusite vyhovet, ale pokud kou- 
pite starsi a levny stroj, velmi zahy se 
ukaze, ze na nem z nyni popularnich 
her nechodi skoro nic - nebo nepouzi- 
telne pomalu. Nadseni se behem ne- 
kolika dnu zmeni ve zklamani a vycit- 
ky ze strany potomka a pocit nevdeku 
na strane rodicii. V te situaci Ize tezko 
pomoci. 

Existuje vsak urcita alternativa ke 
hrani her, a to pomoci velmi silne mo- 
tivace privest deti k programovani. 
Tato alternativa urcite neni vhodna pro 
vsechny, uplatni se zejmena u deti, 
ktere rady zkouseji a experimentuji, 
maji technicke sklony a ktere bytostne 
potrebuji si veci osahat. Alternativa 
i pro ty, ktere programy typu Karla 
nebo Baltika sice na cas zaujmou, ale 
po urcite dobe je omrzi, protoze nevidi 
smysl ve vykreslovani obrazku na pra- 
covni plose. Tou alternativou je koupit 
nebo sestavit diteti jeho vlastni poci- 
tac PC, ktery je predem svou zasta- 
ralosti vyrazen z uvah o hrani libi- 
vych her. Jeste lepsi je nechat dite, 
aby si tento pocitac, samozrejme pod 
stalym vedenim, sestavilo samo. Neni 
to nic sloziteho, voditkem mohou byt 
clanky ve starsich cislech casopisu 
Prakticka elektronika A Radio nebo 
nektera z publikaci, ktere se timto te- 
matem zabyvaji. Pocitac pouzivat 
k ovladani detskych hracek a pro- 
strednictvim toho kjednoduche vyuce 
programovani. Silena myslenka? Ano, 
dost, ale opravdu leckdy funguje. 

Prvni namitkou tohoto postupu 
byva cena. Neopravnene. Dily na se- 
staveni pro tento ucel velmi vhodneho 
pocitace 386SX se zakladni pameti 
640 kB, klavesnici, disketovou jednot- 
kou (pevny disk jakekoli velikosti ani 
neni nutny, ale samozrejme se hodi), 
monochromatickym monitorem VGA, 
jednoduchou videokartou a predevsim 
deskou s porty neprevysuji v bazaru 
1000 Kc - maji tedy cenu nizsi, nez 
ma kolobezka nebo brusle. Velmi cas- 
to se podari takove dily nebo i vetsinu 
pocitace ziskat zdarma, protoze uz 
ani bazary je nechteji. Koupeny cely 
sestaveny pocitac nemusi take prijit 
na vie, nez tech 1000,- Kc. 

Nizka cena ma i dalsi vyhodu. 
Jestlize se diteti podari pri pokusech 
zlikvidovat desku portu nebo primo 
zakladni desku, neni problem dil vy- 


menit s naklady do 50 Kc. Stejny ma- 
ler na modernim pocitaci muze hrave 
vyjit na stonasobek teto ceny. 

Dalsi namitkou, tentokrat naprosto 
opravnenou, je nutnost venovat pri- 
prave i nasledne diteti cas. Jenze bez 
toho to jaksi nejde. Pokud se touto 
cestou vyda vedouci krouzku ve skole, 
pak doba investovana do vytvoreni 
jednotlivych pripravku se vrati vicena- 
sobne a je snadno unosna, mohou 
pomoci i starsi spoluzaci s elektronic- 
kymi, resp. „bastlirskymi” zkusenost- 
mi. Pri priprave jen pro jedno vlastni 
dite je vsak casova narocnost znacna. 

Programove vybaveni pro stary a 
levny pocitac neni celkem problem 
ziskat. Jako operacni system poslouzi 
MS-DOS temer libovolne verze nebo 
nektera zjeho freewarovych nahrad, 
pro nase potreby zcela postacuje. 
Programovaci jazyk bude asi nejeas- 
teji Pascal s pripravenymi unitami. 
Opet muzeme mluvit o nejznamejsim 
Turbo Pascalu, vhodna je i nektera 
freewarova implementace jazyka, 
napr. Pascal Lite Compiler for MS 
DOS firmy TMT. 

Muze byt diskutabilni, zda dnes, 
v dobe nadvlady Windows a objekto- 
veho programovani, ma smysl vracet 
se k DOSu a znakovemu rezimu obra- 
zovky. Zda to neni skok do pocitaco- 
veho stredoveku. Nepopiram, ze by 
bylo lepsi vychazet z podstatne mo- 
dernejsich prostredku, napr. jiz uvede- 
ne prostredi Petr se k tomu vyslovene 
hodi. Jenze narazime na tri podstatne 
problemy. 

Prvnim bude mnohonasobne vyssi 
cena hardware i odpovidajiciho pro- 
gramoveho vybaveni, druhym (treba 
v pripade Delphi) bude schopnost 
zvladnout programovani obsluhy gra- 
fickych vstupu a vstupu. Nekolik krat- 
kych zakladnich povelii a konstrukei 
v Pascalu si dite kolem osmi az deseti 
let celkem snadno zapamatuje, i kdyz 
jde o slova anglicka, a pak uz muze 
krucek po krucku jit dal a seznamovat 
s nasledujicimi moznostmi. Zapisy 
objektove orientovane (treba prave 
v Delphi) jsou v tomto veku podstatne 
hur stravitelne. Pro vyssi vekovou 
skupinu, rekneme stredoskolaku, je 
uz naopak vhodnejsi cesta pomoci 
novejsich prostredku. Velmi dobrym 
voditkem se spoustou vybornych na- 
padu a resenych prikladu v Delphi pak 
muze byt treba knizka „Vyuziti rozhra- 
ni PC pod Windows” [3], 

Tretim problemem jsou zabrany, 
ktere kladou vyssi verze Windows pri- 
memu pristupu na hardware. Z hledis- 
ka bezneho pouzivani Windows a 
soucasneho behu vice programu je to 
naprosto v poradku, ale nasi cinnost 
to vyrazne komplikuje. 

Neni pro nas zcela dulezite, jaky 
konkretni jazyk se stane zakladem pro 
obsluhu pripravku. Podstatnejsi je po- 
chopit logiku jejich ovladani, dokazat 
obsiuzny program vymyslet a modifi- 
kovat podle nametu nebo proste jen 
podle vlastni chuti. Prace v danem ja- 
zyce je az druhotna. Budeme zde po- 
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Tab. 1. Udaje vybranych vstupu a vystupu PC 


Port 

Typ 

Adresa 

Vaha bitu 

Oznaceni 

Cislo kontaktu 
CANNON 9 

Cislo kontaktu 
CANNON 25 

Nazev 

COM 1 

vystup 

$3F8 

X 

TxD 

3 

2 

TxD 

COM 1 

vystup 

$3FC 

1 

DTR 

4 

20 

vystup 1 

COM 1 

vystup 

$3FC 

2 

RTS 

7 

4 

vystup 2 

COM 1 

vstup 

$3FE 

16 

CTS 

8 

5 

vstup 1 

COM 1 

vstup 

$3FE 

32 

DSR 

6 

6 

vstup 2 

COM 1 

vstup 

$3FE 

64 

Rl 

9 

22 

vstup 3 

COM 1 

GND 

X 

X 

GND 

5 

7 

GND 

COM 2 

vystup 

$2F8 

X 

TxD 

3 

2 

TxD 

COM 2 

vystup 

$2FC 

1 

DTR 

4 

20 

vystup 3 

COM 2 

vystup 

$2FC 

2 

RTS 

7 

4 

vystup 4 

COM 2 

vstup 

$2FE 

16 

CTS 

8 

5 

vstup 4 

COM 2 

vstup 

$2FE 

32 

DSR 

6 

6 

vstup 5 

COM 2 

vstup 

$2FE 

64 

Rl 

9 

22 

vstup 6 

COM 2 

GND 

X 

X 

GND 

5 

7 

GND 

LPT 1 

8x vystup 

$378 

1 az 128 

DO az D7 

X 

2 az 9 

vystup P 

LPT 1 

vystup 

$37A 

1 

STROBE 

X 

1 

vystup_Re1 

LPT 1 

vystup 

$37A 

2 

Auto Feed 

X 

14 

vystup_Re2 

LPT 1 

GND 

X 

X 

GND 

X 

18 az 25 

GND 


stupovat v Pascalu, stejne pripravky a 
zejmena namety Ize vsak stejne dobre 
pouzit i v jinem jazyce nebo prostredi. 

Jedna z nekolika malo pomucek, 
slouzicich k vyuce programovani, vy- 
sla pod nazvem Delfin v Prakticke 
elektronice A Radiu [4]. 

Vyuzitelne porty a zdroje 

Predpokladejme, ze budeme mit 
k dispozici jeden paralelni port a dva 
seriove porty, coz je bezne vybaveni 
vetsiny PC. 

Standardni zakladni adresa pro 
seriovy port COM1 je $3F8 a pro port 
COM2 je $2F8. K oznaceni hexadeci- 
malnich cisel budeme v tomto textu 
pouzivat znak $ pred cislem v souladu 
s konvenci zapisu v Turbo Pascalu. 

Pro nas podstatne a vyuzivane ri- 
dici signaly (vystupy) najdeme na 
adresach o 4 vyssich, tedy $3FC a 
$2FC, vstupy na adresach o 6 vyssich 
($3FE a $2FE). Ctenim portu s vystu- 
py dostaneme aktualni nastaveny stav 
vystupu, coz zjednodusuje obsluhu. 

Paralelni port LPT1 ma typicky ad- 
resu $378. Primo na tuto adresu mu- 
zeme zapsat jeden vystupni byte a ten 
se okamzite objevi na vystupu. Pri 
cteni teto adresy ziskame naposledy 


'0000 s 


I — +5 V (cerveny vodic) 

I — GND = ZEM (cerny vodic) 
- GND = ZEM (cerny vodic) 
+12 V (zluty vodic) 


Obr. 3. Napeti na napajeci zasuvce 
pro FDD 5,25“ v PC. Pohled na 
zasuvku zepredu (do dutinek) 


zapsany byte. Udaje pro vstupy a vy- 
stupy jsou shrnuty v tab. 1. Kompletni 
popis pocitacovych konektoru nejde- 
me treba v Prakticke elektronice A 
Radiu [5]. 

Pri konstrukcich budeme potrebo- 
vat i napajeci napeti, vetsinou staci 
+5 V, obcas je nutnych i +12 V. Nape- 
ti muzeme ziskat z univerzalniho zdro- 
je nebo vyuzit primo ta, ktera uz mame 
- tedy ze zdroje pro pocitac, u nehoz 
se napojime na konektor, urceny pro 
velkou disketovou jednotku. Na obr. 3 
jsou popsany jednotlive kontakty toho- 
to konektoru. Potrebny protikus ko- 
nektoru (vidlice) je bezne k dostani 
v prodejnach se soucastkami. 

Pocitacovy zdroj muze pro nase 
pokusy poskytnout proud kolem 2 A 
z vystupu +5 V a nejmene 0,5 A z vy- 
stupu +12 V. Pri pretizeni nebo zkratu 
zdroj vypina svou vnitrni ochranou 
(cimz zhavaruje i pocitac), ale v na- 
proste vetsine pripadu se tim sam ni- 
jak neposkodi. 


Oddeleni pocitace 

Vystupy z pocitace je treba pro 
vetsinu aplikaci vykonove posilit. Vy- 



Obr. 4. Obvod pro posileni jednoho 
vystupu ze serioveho portu 


stupy 1 az 4, tedy vystupy brane ze 
seriovych portu, maji pri logickem sta- 
vu (urovni) FI napeti kolem +9 V, stav 
L vyvola napeti kolem -9 V. Vyuzitelna 
proudova zatizitelnost do 10 mA by 
davala moznost napajet treba diody 
LED primo z techto vystupu, pro radu 
pokusu bychom vsak museli vystupy 
stejne posilovat. Proto je vyhodne vy- 
stupy rovnou posilit s dostatecnou re- 
zervou. 

Schema obvodu pro posileni jed- 
noho vystupu ze serioveho portu je na 
obr. 4, celkem toto zapojeni realizuje- 
me nekolikrat, ctyrikrat az sestkrat. 
Vstupni kapacita ridici elektrody FIEX- 
FET tranzistoru se vybiji pres uzemno- 
vaci rezistor o odporu 4,7 kQ, cimz 
se zpomaluje uzavirani tranzistoru, 
pro nase ucely to vsak neni zavadu. 
Rezistor o odporu 2,2 kQ umoznuje 
pri napajeni ze zdroje +5 V vyuzivat 
vystup i jako logicky, dioda BYW36 
(nebo podobna) zachytava napet’ove 
spicky pri indukcni zatezi. 

Pouzity tranzistor IRLZ24N dovolu- 
je s rezervou vyuzivat vykon pocitaco- 
veho spinaneho zdroje pro pokusy. 
Snese bez chladice trvale proud az 
2 A, kratkodobe pres 15 A. Kjeho ote- 
vreni staci napeti mens! nez 5 V na ri- 
dici elektrode, coz je velmi vyhodne. 
Pokud by bylo potreba vetsi proudove 
posileni, Ize bez zmeny zapojeni na- 
sadit treba tranzistory IRL2203N a 
umistit je na masivni chladice. S nimi 
neni problem dosahnout trvaleho prou- 
du 30 A z jednoho vystupu, ovsem sa- 
mozrejme s uplne jinym zdrojem na- 
pajeni. 

Namisto tranzistoru urcenych pro 
prime buzeni z obvodu TTL Ize v tom- 
to pripade pouzit i napr. BUZ10 nebo 
IRF520, ktere se podstatne lepe shani 
v obchodech. Je vsak vhodne predem 
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74LS540 


+5V 



Obr. 5. Pripojeni 10 74LS540 


zkontrolovat, ze kjejich plnemu ote- 
vreni staci napeti na ridici elektrode 
+9 V nebo mensi. Proudova zatizitel- 
nost bude mensi a otepleni vetsi. 

Zatez zapojujeme mezi vystup 
z posilovace a napajeci sbemici +5 V 
nebo +12 V. Ke stejne sbemici musi- 
me propojkou pripojit i kolektorovy re- 
zistor (2,2 k£2) v posilovaci. Uvedeni 
vystupu z pocitace do stavu Jog. 1“ 
(H) ma za nasledek aktivaci zateze. 

Vstupy seriovych portu neni potre- 
ba osetrovat. Jsou staveny na napeti 
nejmene ±15V, napeti vetsi nez 
+3 V vyhodnocuji jako H, napeti men- 
si nez asi 0,6 V jako uroven L. I kdyz 
prave uvedene udaje neodpovidaji 
normou predepsanym urovnim na 
vstupech seriovych portu, nesetkal 
jsem se v praxi s pripadem, kdy by to 
nefungovalo. 

V nepripojenem stavu je na vstupu 
napeti velmi blizke zemi (GND), pre- 
cteme tedy stav L. Tim se tyto vstupy 
lisi od vstupu obvodu TTL, LS, HC 
nebo HCT, ktere nepripojene prejdou 
do stavu H. 

Vystupy paralelniho portu je nutne 
osetrit (jsou, mimochodem, mnohem 
nachylnejsi na poskozeni). Budeme 
vyuzivat predevsim datove vystupy 
DO az D7, na ktere pripojime invertuji- 
ci budic sbernice 74LS540. Pripadnou 
inverzi dat osetrime programove. Je 
vyhodne tento budic umistit do objim- 
ky, aby v pripade zniceni sel snadno 
vymenit. Schema pripojeni 10 74LS540 
je na obr. 5. 
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Obr. 6. Pripojeni rele se dvema 
prepinacimi kontakty k vystupum 
STROBE a AutoFeed 


Z ostatnich vstupu a vystupu do- 
stupnych na paralelnim portu vyuzije- 
me jeste dva, a to signaly STROBE a 
AutoFeed, na ktere pripojime rele se 
dvema prepinacimi kontakty podle 
obr. 6. Tato rele miizeme pouzit ke 
spinani v pripade, ze potrebujeme 
ovladane obvody galvanicky oddelit. 
Casteji se vsak uplatni pri prepinani 
smeru pohybu stejnosmernych motor- 
ku. Proudova zatizitelnost kontaktu 
rele by mela byt alespon 5 A. 

Oddelene vystupy DO az D7 miize- 
me pouzivat samostatne, bud’ jako os- 
mici reprezentujici vystupni byte (tre- 
ba pro prevodniky D/A nebo A/D), a 
nebo jako dve ctverice s pripojenymi 
jednoduchymi odporovymi prevodniky 
D/A podle obr. 7. Tyto ctyrbitove pre- 
vodniky generuji napeti 0 az 1,8 V, 
ktere je operacnim zesilovacem ve 
funkci komparatoru s hysterezi porov- 
navano s pilovitym napetim. Tim se 
generuje signal s promenlivou stridou 
pro rizeni otacek motoru. 

Zdrojem piloviteho napeti je caso- 
vac 5550 (CMOS) zapojeny tak, aby 
jeho vystupni signal mel stridu 1:1. 
Trimr o odporu 100 kC2 spolu s rezisto- 
rem o odporu 3,3 kC2 a se dvema ca- 
sovacimi kondenzatory (1 pF, 47 nF) 
prepinanymi propojkou umoznuji na- 
stavit kmitocet piloviteho napeti pri- 
blizne v rozsahu 10 az 200 Flz a 200 az 
4000 Hz. Vystupni pilovite napeti je 
odebirano primo z casovaciho kon- 
denzatoru. 

Na casovacim kondenzatoru by 
vsak byl rozkmit piloviteho napeti 


mensi, nez potrebujeme, jen asi 1,6 V 
a take stejnosmerna slozka tohoto 
signalu je jina, nez jakou potrebujeme 
pro komparatory. Proto je mezi vyvody 
5 a 8 casovace 555C zapojen rezistor 
oznaceny hvezdickou, ktery upravuje 
rozhodovaci urovne casovace tak, 
aby se rozkmit piloviteho napeti 
zvetsil. Odebirany signal je oddelen 
elektrolytickym kondenzatorem (10 pF) 
a odporovy delic s trimrem o odporu 
100 k£2 mu udeluje potrebnou stejno- 
smernou slozku. 

Odpor rezistoru s hvezdickou mu- 
sime pri ozivovani nastavit tak, aby pri 
vstupnich datech 0000 bylo na vystu- 
pu komparatoru napeti 0 V a zadne 
impulzy, pri vstupu 0001 se objevily 
na vystupu komparatoru uzke impul- 
zy, ktere se postupne az do stavu 
1110 rozsiruji, a pri vstupu 1111 bylo 
na vystupu komparatoru napeti kolem 
5 V a opet zadne impulzy. Kdyz je 
pasmo vstupnich cisel, ve kterem 
vznikaji impulzy, uzsi nez 0001 az 
1110, odpor rezistoru s hvezdickou 
zmensime a naopak. Vychozi velikost 
tohoto odporu je 100 k£X Trimr o od- 
poru 100 k£2, kterym se nastavuje 
stejnosmerna slozka piloviteho nape- 
ti, vzdy dorovname tak, aby pri vstu- 
pech 0000 a 1111 impulzy zanikly. 
Serizeni si vyzada urcitou dobu a je vy- 
hodou mit k dispozici osciloskop, ale 
neni to nutne. Pro rizeni motoru je sa- 
mozrejme treba vystup z operacniho 
zesilovace posilit obvodem z obr. 4. 

Na obr. 8 je oscilogram vystupniho 
napeti prevodniku D/A (v mericim 
bode A) pri jednom cyklu posloupnosti 
vstupnich cisel od 0000 do 1111. Na- 
peti se stupnovite zvetsuje. Pri vetsi 
rychlosti zmen by se na hranach pro- 
jevilo vyhlazeni kondenzatorem C2 
o kapacite 100 nF. To vsak nevadi, 
protoze tento prevodnik neni urcen 
pro rychle zmeny, typicky na nem na- 
stavime uroven, ktera je pak dlouho 
(nekolik sekund) drzena. 

Na obr. 9 je priibeh piloviteho na- 
peti na vstupu komparatoru (v meri- 
cim bode B) a priibeh odpovidaji- 
cich impulsu na vystupu komparatoru 
(v mericim bode C) pro vstup 0010. 


Z VYSTUPU 74LSS40 



Obr. 7. Dva jednoduche ctyrbitove D/A prevodniky s impulsnimy vystupy s promenlivou stridou 
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Obr. 8. Prubeh vystupniho napeti 
prevodniku D/A v mericim bode A 



Obr. 9. Prubeh piloviteho napeti na 
vstupu komparatoru (B) a prubeh 
odpovidajicich impulzu na vystupu 

komparatoru (C) pro vstup 0010 

Uvedena zapojeni je mozne reali- 
zovat samostatne na univerzalnich 
destickach, kjednotlivym pokusum je 
vzdy treba jen jejich mala cast. 

Pro ty, kdo nechteji pouzivat uni- 
verzalni desky, jsou vsechny obvo- 
dy z obr. 4 az obr. 7 (v plnem poctu) 
soustredeny na jednu desku s plosny- 
mi spoji, ktera je nazvana Interface 
PC. Obrazec plosnych spoju teto des- 
ky je na obr. 10, rozmisteni soucas- 
tek na desce je na obr. 1 1 . Deska na- 
vic obsahuje dva volne univerzalni 
posilovace, ktere budou pouzity nej- 
casteji pro vystupy TxD nebo operacni 
zesilovace. Na casti desky je univer- 
zalni prostor pro dalsi doplnky. Vsech- 
ny vstupy a vystupy jsou vyvedeny na 
svorkovnice, takze k propojovani vet- 
sinou staci jen draty na koncich odizo- 
lovane a sroubovacek. Pro pripad, ze 
by nekdo chtel realizovat jen cast za- 
pojeni, je deska clenena na nekolik 
snadno oddelitelnych casti, oznace- 
nych u kraje desky trojuhelnickem. 

Mechanicke reseni 

Desky s plosnymi spoji nejsou 
u dalsich zapojeni uvedeny, protoze 
doplnky jsou velmi jednoduche a pod- 
le moznosti se vetsinou realizuji na 
deskach s univerzalnimi plosnymi 
spoji, pokud jsou vubec nejake plosne 
spoje potrebne. 

Jine je to s mechanickym provede- 
nim pripravku a hracek, ktere ve vet- 
sine pripadu bude vyzadovat vice pra- 
ce nez elektricke zapojeni. Vyrazne 
uspory casu a soucasne zvetseni vari- 
ability ziskame tim, ze vyuzijeme dilu 
nektere dostupne detske stavebnice. 
Velmi dobre se hodi LEGO, ktere 


dnes vetsina deti ma, zejmena na ruz- 
ne drzaky cidel. Ze starsich stavebnic 
je neocenitelny MERKUR, predevsim 
pro konstrukci ruznych ovladanych vo- 
zitek, samohybu a robotu. 

Vyhodou je spojeni pripravku s hrac- 
kami, ktere dite uz ma nebo bezne 
zna, predevsim s autodrahou, elek- 
trickym vlackem, autickem (jeste lepe 
pasovym tankem, kde Ize pohybem 
pasu ovladat smer) apod. 

Pro narocnejsi (a drazsi) pokusy 
muzeme vychazet z modelarske tech- 
niky, upravou RC serva se da napri- 
klad ziskat kompaktni celek stejno- 
smerneho motorku a prevodovky, 
vykonne pohonne modelarske motory 
staci s rezervou na vsechny pokusne 
aplikace. 

Jako vyborny zdroj materialu i in- 
spirace mohou poslouzit vyrazene a 
nefunkcni casti pocitacu a jejich pri- 
slusenstvi, predevsim disketovych 
jednotek, pevnych disku a jehlicko- 
vych tiskaren. Nekolik nametu muze- 
me najit treba v knize „Rozeberte si 
PC” [6], 

I velmi letita literatura muze byt uzi- 
tecna. Treba v knize „Amaterske elek- 
tronicke rnodely" [7], stare jiz 35 let, 
najdeme bezpocet napadu resenych 
jednoduchymi zapojenimi s germanio- 
vymi tranzistory, stejne napady a po- 
kusy vsak muzeme prevest na rizeni 
pocitacem, zdokonalit a rozvinout. 

Zakladni unita obsluhy 

Aby se usnadnilo a pro deti zpre- 
hlednilo psani programu, obsahuje 
zakladni unita pod jmenem „ovl.pas” 
nekolik procedur a funkci pro ovladani 
pripravku, ktere maji navodne ceske 
nazvy. Pro zvladnuti prvnich program- 
ku tak staci minimum znalosti. 

Unita obsahuje jako konstanty za- 
kladni adresy portu coml, com2 a Ipt. 
Pred pouzitim kontrolujte, zda se tyto 
adresy shoduji s nastavenim vaseho 
pocitace. Konstanty jsou pouzitelne 
i ve vlastnich programech vyuzivaji- 
cich unitu ovl.pas. 

Procedury se predevsim tykaji na- 
stavovani vystupnich bitu, cteni vstup- 
nich bitu, jednoducheho zvukoveho 
vystupu a prace s casern. Podrobneji 
budou popsany vzdy u prvniho pouziti. 

Ke konkretnim okruhum uloh je 
pak mozne sestavit dalsi unity s nazvy 
tykajicimi se presne daneho prikladu. 
Unitu ovl.pas a vsechny uvedene 
ocislovane programky je mozne stah- 
nout z internetovych stranek redakce 
www.aradio.cz . 

Pripravene procedury a funkce: 
init - vypne vsechny vystupni linky, 
vypne rele, 

zapnil az zapni4 - aktivuje vystup 1 
az vystup 4. Aktivace znamena spoje- 
ni prislusneho vystupu se zemi, tedy 
zapnuti zateze zapojene mezi vystup 
a kladny pol napajeni. 
vypnil az vypni4 - analogicky vypnuti 
vystupu 1 az vystupu 4, 
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vstupl az vstup6 - funkce typu boole- 
an - vraci stav prislusneho vstupu, 

zapni_p1 az zapni_p8 - aktivuje jed- 
notlive vystupni bity paralelniho portu 
pi az p8. Aktivace znamena uvedeni 
do stavu L na vystupu invertujiciho 
posilovace, zatez je typicky mezi vy- 
stupem posilovace a kladnym polem 
napajeciho napeti 5 V, 
vyp n i_p1 az vypni_p8 - analogicky 
vypina vystupy pi az p8, 

zapni_re1, zapni_re2 - zapne prislus- 
ne rele, 

vypni_re1, vypni_re2 - vypne prislus- 
ne rele, 

rychlost_1(byte) - odesle na spodni 
ctyri bity paralelniho portu spodni ctyri 
bity zadaneho byte. Pouziva se pro ri- 
zeni motoru stridou impulzu pres pre- 
vodnik D/A. Vystupni signal se objevi 
na vystupu „Strida pres DA prevodnik 
pi - p4“ na obr. 1 1 , 

rychlost_2(byte) - odesle na horni 
ctyri bity paralelniho portu spodni ctyri 
bity zadaneho byte. Pouziva se pro ri- 
zeni motoru stridou impulzu pres pre- 
vodnik D/A. Vystupni signal se objevi 
na vystupu „Strida pres DA prevodnik 
p5 - p8“ na obr. 1 1 , 

vystup_p(byte) - odesle uvedeny byte 
na datove vystupy paralelniho portu. 
Data neguje, takze po projiti invertuji- 
cim budicem jsou na vystupu v ode- 
slane forme, 

precti_p - funkce typu byte - vraci na- 
posledy zapsanou hodnotu na paralel- 
ni port, 

pockej - ceka presne Is, 
cekej(cas) - ceka udanou dobu v de- 
setinach sekundy, 

pip - generuje ton 1000 Hz po dobu 
0,1 s, 

pip3 - trikrat pipne, mezery mezi zvu- 
ky jsou 0,1 s, 

cticas - funkce typu real - vraci cas, 
ktery uplynul od zacatku dne v sekun- 
dach, s presnosti na 0,01 s. 

Nasledujici rada popisu pripravku 
a uloh si neklade za cil byt ucelenou 
naplni pro krouzky nebo domaci vyu- 
ku, tim mene pak zpracovanou meto- 
dikou. Je to predevsim zdroj pro vlast- 
ni inspiraci a snazi se presvedcit, ze 
tato cesta je pouzitelnou a zvladnutel- 
nou, i kdyz ponekud neobvyklou alter- 
nativou vyuky programovani. 

Predpoklada se, ze nejde o prvni 
setkani s programovanim, ze Ize na- 
vazovat alespon na minimalni zkuse- 
nosti s Baltikem nebo Petrem. Jedno- 
dussi ulohy (nebo casti uvedenych 
uloh) jsou zvladnutelne uz pro deti ve 
veku druhe ci treti tridy, dusledne 
zvladnuti rozsirujicich nametu vytizi 
spolehlive i stredoskolaky. 

Obr. 10. Obrazec plosnych spoju desky 
Interface PC (men: 1 : 1) (vlevo) — > 

Obr. 11. Rozmisteni soucastek na 
desce Interface PC (vpravo) — > 
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Zarovky 

Na vystupy 1 a 2 na desce Interfa- 
ce PC jednoduse pripojime dve zarov- 
ky podle obr. 12. Prvnim ukolem je 
pouze rozsvitit jednu zarovku. Nic vie. 
Z obecnych znalosti staci vedet, jak 
program zacina (begin), jak se jednot- 
live povely oddeluji (;) a jak se pro- 
gram ukoncuje (end.). Dale je treba ve- 
det, cim se program prelozi a spusti. 

Je dobre od pocatku pouzivat i hla- 
vicku hlavniho programoveho bloku 
(program „nazev”) a zvyknout si nazy- 
vat programy tak, aby nazev vystiho- 
val obsah. Neni to sice z funkeniho 
hlediska nutne, ale vyplati se to. Stej- 
ne tak je dobre od sameho pocatku 
vedet, jak se do programu udela vy- 
svetlujici poznamka - komentar ({x}). 

Povely pro ovladani vystupu 1 jsou 
jednoduche, zapnil a vypnil (obdob- 
ne pro vystup 2). Zadne parametry za- 
tim nebudeme pouzivat. Rozsvitime 
tedy zarovicku. 

Program rozsvitl; 

{pr_001.pas} 

{rozsviti zarovku na vystupu 1} 
uses ovl; 
begin 
zapnil; 
end. 

Analogicky zarovku vypneme, pak 
treba zapneme a vypneme druhou. 
Prvni chyby jsou predevsim formalni, 
preklepy a nedokoncena slova, chy- 
bejici strednik. Je velmi zajimave sle- 
dovat i prvni chyby logicke, predevsim 
pokusy rozsvitit jiz svitici zarovku 
nebo vypnout zhasnutou. Nekteri se 
divi, proc se na pohled nic nedeje. Ne- 
uprosna logika zacina pracovat. 

Co takhle zapnout a potom vy- 
pnout obe zarovky soucasne? Ono to 
sice s pripravenymi procedurami ne- 
bude ve skutecnosti soucasne, ale 
bude to tak urcite vypadat. 

Program rozsvit_obe; 

{pr_002 .pas} 

{rozsviti obe zarovky) 
uses ovl; 
begin 
zapnil; 
zapni2; 
end. 

Obdobne je i vypneme. Kdyz chce- 
me zarovku rozblikat, potrebujeme pri- 
brat neco, co zpusobi cekani. Nejjed- 
nodussi je pripravena procedura 
„pockej”, ktera ceka jednu vterinu. Za- 
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Obr. 12. Zarovky ovladane z vystupu 
desky Interface PC 


tim vsak nemame ani cykly. Dokonce 
vystacime i bez zcela zakladniho poj- 
mu promenna. 

Program blikej; 

{pr_003.pas} 

{blikani jednou zarovkou) 
uses ovl; 
begin 
zapnil; 
pocke j ; 
vypnil; 
pocke j ; 
zapnil; 
pocke j ; 
vypnil; 
end. 

To jiste neni pohodlne, zejmena 
pro dels! dobu blikani. Budeme potre- 
bovat cyklus (pro zacatek treba 
s predem danym poctem priichodu) a 
soucasne i pojem promenne jako mis- 
ta v pameti pocitace, kam muzeme 
ulozit cislo (zatim staci cislo, dokonce 
cele cislo). Promenna musi mit sviij 
typ. Jakmile mame promennou, musi- 
me ji i deklarovat. Cyklus sebou nese 
zase moznost vnoreneho bloku. Vno- 
rene bloky vyzaduji pro prehlednost 
odsazovani textu. To vse dohromady 
je znaeny skok, mozna nejvetsi v ce- 
lem postupu. Znovu tedy budeme bli- 
kat, ale delsi dobu a s kratsim progra- 


Program blike j_2 ; 

{pr_004 .pas) 

{blikani jednou zarovkou) 

uses ovl; 

var i; integer; 

begin 

for i:=l to 10 do begin 
zapnil; 
pocke j ; 
vypnil; 
pocke j ; 
end; 
end. 

Museli jsme udelat velky skok, ale 
zato s nim delsi dobu vystacime. Dal 
muzeme treba menit pocet bliknuti 
v programu a zkusit blikani zpomalit 
(zdvojit „pockej”). Predelat blikani na 
druhou zarovku nebo na obe zarovky 
soucasne. A take udelat stfidave bli- 
kani obou zarovek. 


zapnil; 
vypni2; 
pocke j ; 
vypnil; 
zapni2; 
pocke j ; 

Muzeme zkusit blikat tak, aby se 
zarovky stridaly, ale nez se dalsi roz- 
sviti, byly vzdy chvili obe zhasnute. 
Neni problem pridat na vystupy 3 a 4 
stejnym zpusobem dalsi dve zarovky. 
Se ctyrmi v fade uz jde delat prebiha- 
ni svetelka jako na svetelnem hadu 


vjednom smeru. Abychom vzdy zaci- 
nali ve stavu, ktery nezalezi na tom, 
co zbylo z predchozich pokusii, za- 
cneme pouzivat procedur init, ktera 
vypne vsechny dostupne vystupy. 

program had; 

{pr_005.pas} 

{svetelny had se ctyrmi zarovkami) 
uses ovl; 
var i; integer; 
begin 
init; 

for i : =1 to 10 do begin 
zapnil; 
pocke j ; 

vypnil ;zapni2; 
pocke j ; 

vypni2;zapni3; 
pocke j ; 

vypni3;zapni4; 
pocke j ; 
vypni4; 
pocke j ; 
end; 
end. 

Moznosti se dal rozsiri, kdyz na- 
hradime proceduru „pockej” (s pevne 
nastavenou dobou na jednu vterinu) 
procedurou „cekej(x)”, u niz Ize zadat 
parametrem dobu cekani v deseti- 
nach sekundy. Desetina je dobra 
doba na nastavovani rychlosti a sou- 
casne vede k pouzivani pro deti prija- 
telnych velikosti cisel. Marne prvni 
jednoduchy parametr a muzeme ho 
vyuzivat. 

Budeme menit rychlost blikani pro- 
stou zmenou „cekej” za „pockej” na 
mnoha mistech programu. Je to prac- 
ne, ale naprosto pochopitelne. Po- 
stupne si zavedeme promennou 
„doba” (vlastne je zatim pouzita jen 
jako konstanta), do ktere ulozime 
dobu pro cekani na jedinem miste na 
zacatku programu. Ve vsech volanich 
„cekej” se pak muzeme na tuto pro- 
mennou odvolat. Tim jednoduse zme- 
nime jednim zasahem do programu 
celou rychlost blikani, neni nutne me- 
nit program na vice mistech. Procedu- 
ru „init”, ktera vsechny vystupy vypina 
na zacatku, muzeme pouzit pro jistotu 
i na konci, abychom po sobe „uklidili”. 

Muzeme si vyrobit treba svetylko, 
co se na konci vzdy odrazi a bezi 
zpatky, rozsveceni cele rady zjedne 
strany a zase zhaseni atd. Variant je 
bezpocet, staci se podivat na reklam- 
ni poutace. 

Program svetylko; 

{pr_006.pas( 

{svetylko beha sem a zpatky) 
uses ovl; 

var i, doba, pocet; integer; 
begin 
init; 

doba; =4; {nastaveni rychlosti) 
pocet:=10; {pocet prebehu) 
for i:=l to pocet do begin 
zapnil; 
cekej (doba) ; 
vypnil ;zapni2; 
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Obr. 13. 
Smerova 
sipka 
ovladana 
z vystupu 
desky 
Interface 
PC 


cekej (doba) ; 
vypni2;zapni3; 
cekej (doba) ; 
vypni3; zapni4; 
cekej (doba) ; 
vypni4;zapni3; 
cekej (doba) ; 
vypni3; zapni2; 
cekej (doba) ; 
vypni2; 
end; 
init; 
end. 

Je to prilis pracne? Pro vetsi pocet 
zarovek jiste ano. Jakmile zacneme 
vsak pouzivat procedury s vice para- 
metry, program se zkrati, ale pro mno- 
he se stane uz neprehledny. 

Nametem pro dalsi praci miize byt 
model sviticl smerove sipky, ktera 
byva umistena na stojicim aute pri 
opravach dalnic. Rozsvecuje se z jed- 
ne strany, okamzik sviti cela a pak 
zhasne. Vyrobime ji z plastove ctver- 
cove desticky a osadime sviticimi dio- 
dami, nejlepe zlutymi. Velikost je 
vhodne zvolit podle nejakeho dostup- 
neho naklad’acku, ktery ji pak bude 
vozit. Protoze budeme potrebovat vice 
vystupu a postaci nam maly proud, 
zapojime LED na vystupy pi az p8 na 
desce Interface PC podle obr. 13. 

Semafory 

Semafory jsou vlastne jen obme- 


V nejjednodussi verzi postaci jen 
prepinat barvy, samozrejme svit zlute 
je podstatne kratsi nez cervene a ze- 
lene. Semafor ale muze byt i „mimo 
provoz” a pouze zlute blikat. Do tohoto 
rezimu ho prepneme prave vypina- 
cem na vstupu 1. Na obr. 14 je jeden 
z moznych casovych diagramu funkce 
semaforu, ktery odpovida nasledujici- 
mu programu. 

Program semafor; 

{pr_007 . pas } 

{jednoduchy semafor) 
uses ovl,crt; 
var doba, i: integer; 
begin 
init; 

doba;=5; (nastaveni rychlosti) 
repeat 

if vstupl then 
(blikani zlute) 
for i : =1 to 6 do begin 
zapni2;cekej (doba) ; 
vypni2;cekej (doba) ; 
end 

else begin 

(cervena/zluta/zelena/zluta) 
zapnil; cekej (doba*5) ; 
vypnil;zapni2;cekej (doba) ; 
vypni2;zapni3; cekej (doba*5) ; 
vypni3;zapni2;cekej (doba) ; 
vypni2; 
end; 

until keypressed; 
if readkey=IO then readkey; 
init; 
end. 


Program pracuje v cyklu dvanacti 
casovych useku, jejichz delka je urce- 
na hodnotou promenne doba. Pouze 
po dokonceni tohoto cyklu se testuje 
stav vypinace, jeho prepnuti se tedy 
neprojevi okamzite. Pouzivame stan- 
dardni unitu crt, ktera nam umoznuje 
odpoutat se od pevneho poctu cyklu 
semaforu a pracovat nepretrzite do 
prvniho stisku tlacitka na klavesnici. 
Zatim jednotlive klavesy nerozlisuje- 
me. Na konci programu je dobre od- 
stranit (nacist) z bufferu stisknutou 
klavesu, aby nebyla predana nasledu- 
jicimu programu. 

Pripojeni na seriove porty vykono- 
ve posilene limituje pocet pouzitych 
svetel. Abychom zvladli obsluhu vetsi- 
ho celku, pouzijeme vystupy pi az p5 
na paralelnim portu a vyrobime kom- 
pletni prechod s tlacitkem pro chodce 
na rovne silnici. 

Jednotliva svetla semaforu postaci 
z LED o prumeru 3 mm, zapojime je 
jako v predchozich pripadech mezi 
prislusny vystup a napajeci sbernici 
+5 V pres rezistor o odporu 470 Q. 
Celkem budeme potrebovat ctyri se- 
mafory, dva pro auta a dva pro chod- 
ce. Prislusne LED (vcetne rezistorii) 
semaforu jsou spojene paralelne, po- 
sileni integrovanym obvodem to bez 
problemii zvlada. 

Program uz vyzaduje hlubsi za- 
mysleni nad synchronizaci jednotli- 
vych svetel a pripadne rozkresleni do 
fazi (stavii) na ctvereckovany papir. 
V klidovem stavu (bez chodcu) maji 
auta zelenou, chodci cervenou. Stis- 
kem tlacitka na vstupu 1 se odstartuje 
jeden cyklus semaforu, oproti pred- 
chozimu prikladu vsak musime brat 
v uvahu i prodlevu na to, aby auta 
mohla bezpecne zabrzdit nebo opustit 
prechod pred rozsvicenim zelene pro 
chodce a jeste mnohem dels! prodle- 
vu mezi rozsvicenim cervene pro 
chodce a uvolnenim jizdy aut. Mozny 
casovy diagram je na obr. 15. 

Takto koncipovane reseni uz je 
funkcni a vypada pekne, ale neresi 
problem mnoha chodcu za sebou, 
kteri by zcela zablokovali prujezd aut. 
Je ho mozne vyzkouset jako castecne 
reseni. Dal zavedeme promennou 
„prodleva” a konstantu „zpozdeni”, po- 
moci nichz zajistime, aby minimalm 
doba zelene pro auta byla urcena 
konstantou „zpozdeni". Pokud chodec 
stiskne tlacitko po delsi dobe klidu, 


nou a praktickou aplikaci predchozich 
pokusu se zarovkami. Hodi se posta- 
vit skutecny maly semafor s barevny- 
mi kryty pro zarovky (jsou lepe videt) 
nebo zarovky zamenit za velke roz- 
ptylne LED (se seriovymi rezistory 
o odporu 180 Q). Velikost LED zalezi 
jen na tom, pro jakou hru ma slouzit 
(resp. na velikosti auticek). 

Je zajimavejsi, kdyz je mozne za- 
sahovat primo do behu programu. 
Proto pripojime mezi vstup 1 a napa- 
jeci sbernici +5 V vypinac, ktery pri 
obsluze semaforu pouzijeme. 



(vystup 1) 
(vystup 2) 
(vystup 3) 

(vystup 2) 


Obr. 14. Jeden z moznych casovych diagramu funkce semaforu 



auta cervena 


auta zluta 

auta zelena 

chodci cervena 

chodci zelena 



vystup pi 
vystup p2 
vystup p3 

vystup p4 
vystup p5 


Obr. 15. Priklad casovych diagramu funkci dvou semaforu (jednoho pro 
automobily a druheho pro chodce) 


dostane volno obratem. Pokud neu- 
plynula od predchozi zelene pro chod- 
ce doba „zpozdeni”, musi chvili po- 
ckat. 

Program prechod; 

{pr_008 . pas } 

{prechod pro chodce s tlacitkem) 
uses ovl,crt; 
const zpozdeni=50; {xO.ls} 
doba=5; {xO . Is } 
var chodec: boolean; 
prodleva: integer; 

begin 

init; 

chodec:=false; 
prodleva : =zpozdeni ; 
repeat 

if chodec and 

(prodleva>=zpozdeni) then begin 
vypni_p3;zapni_p2;cekej (doba) ; 
vypni_p2;zapni_pl;cekej (doba) ; 
vypni_p4;zapni_p5;cekej (doba*2) ; 
vypni_p5;zapni_p4;cekej (doba*3) ; 
vypni_pl;zapni_p2;cekej (doba) ; 
vypni p2;zapni p3; 
chodec;=false; 
prodleva : =0 ; 
end 

else begin 
zapni_p3 ; zapni_p4 ; 
cekejjl) ; 

if vstupl then chodec:=true; 
prodleva ; =prodleva+l ; 
if prodleva>zpozdeni then 
prodleva : =zpozdeni ; 
end; 

until keypressed; 


if readkey=fO then readkey; 

init; 

end. 

Ani to vsak nemusi byt hotova ulo- 
ha. Prechod miize byt mimo provoz, 
semafor pro chodce zhasnuty a pro 
auta blikajici zluta. Obdobne jako 
v priklade 7 (pr_007.pas) muzeme 
doplnit vypinac na vstup 2 a ovladat 
blikani. 

Je potom program zcela komplet- 
ni? Vzpomente si treba na zvukovou 
signalizaci pro nevidome na precho- 
dech. Nasimulovat samostatne toto 
rychle „klepani” pri zelenem svetle a 
pomale pri cervenem treba pomoci 
standardniho zvukoveho vystupu a re- 
produktoru v pocitaci neni nijak tezke, 
mnohem tezsi je skloubit zvukovou 
signalizaci s casovanim semaforu tak, 
aby vse chodilo soucasne jako ve 
skutecnosti. Muzeme zvolit dve za- 
kladni cesty - generovat zvuk elektro- 
nickym obvodem nebo ciste progra- 
move reseni. 

Na obr. 16 je schema jednoduche- 
ho generatoru s obvodem 555, ktery 
pres tranzistor budi maly reprodukto- 
rek. Kratke impulzy vytvari celkem 
verne dojem klepani skutecneho zari- 
zeni. Zmena frekvence signalu je do- 
sazena ruznymi odpory v obou vstu- 
pech obvodu. Invertory z obvodu 
74HC00 jsou zarazeny do vstupu kvuli 
tomu, aby pri vypnute signalizaci pro 
chodce (blikani zlute pro auta) zvuko- 
vy signal utichl. Bez invertoru (a 
s prohozenymi vstupy) funguje obvod 



Obr. 1 6. Generator zvukove signalizace k semaforu pro chodce. Reproduktor 

ma impedanci 8 Q 
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take, ale pri vypnute signalizaci se 
oz ve rychle klepani, tedy povel volno 
pro nevidome. Chudaci chodci! 

Program prechod naprostou vetsi- 
nu casu travi pri cekani v procedure 
„cekej”. Pri ciste programovem reseni 
tedy musime prave tuto proceduru na- 
hradit jinou, ktera bude soucasne ge- 
nerovat zvukovy signal. Cim pomalej- 
si bude pocitac, na kterem program 
pobezi, tim vice budou znat nepravi- 
delnosti ve zvuku. Ale nijak vyrazna 
tato zaskobrtnuti byt nemusi. 

Technicky musime trochu pred- 
behnout a pouzit prostredky, kterymi 
se zabyva az nasledujici kapitola. 

Program prechod2; 

{pr_009.pas} 

(Prechod pro chodce s tlacitkem) 

(a zvukovou signalizaci) 
uses ovl,crt; 
const zpozdeni=80; (xO.ls) 
doba=20; (xO.ls) 

var chodec: boolean; 
prodleva, tuk : integer; 

procedure cekej_z (d: integer) ; 

(cekani s rychlym tukanim) 
begin 
repeat 

delay (182) ; sound (400) ; 
delay (8) ; nosound; 
d:=d-2; 
until d<=0; 
end; 

procedure cekej_c (d: integer) ; 

(cekani s pomalym tukanim) 
begin 
repeat 

delay (892) ; sound (400) ; 
delay (8) ; nosound; 
d:=d-9; 
until d<=0; 
end; 

procedure prejdi; 
begin 

vypni_p3 ; zapni_p2 ; ceke j_c (doba ) ; 
vypni_p2 ; zapni_pl ; ceke j_c (doba) ; 
vypni_p4;zapni_p5;cekej_z (doba*2) ; 
vypni_p5 ; zapni_p4 ; ceke j_c ( doba*3 ) ; 
vypni_pl; zapni_p2 ; cekej_c (doba) ; 
vypni p2;zapni p3; 
chodec:=false; 
prodleva : =0 ; 
end; 

procedure klid; 
begin 
tuk : =900 ; 

zapni_p3 ; zapni_p4 ; 
repeat 
dec (tuk) ; 

if vstupl then chodec :=true; 
if tuk=8 then sound (400) ; 
if tuk=0 then nosound; 
delay (1) ; 
inc (prodleva) ; 
if prodleva> ( zpozdeni* 100 ) 
then prodleva:=(zpozdeni*100) ; 
until tuk=0; 
end; 
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procedure vypnuto; 
begin; 

vypni p3;vypni p4; 
zapni_p2;cekejl3) ; 
vypni_p2;cekej (12) ; 
tuk:=800; 
end; 

begin 
init; 
tuk: =800; 
chodec:=false; 
prodleva;=zpozdeni*100; 
repeat 

if vstup2 then vypnuto else 
if chodec and 
(prodleva>=(zpozdeni*100) ) 
then prejdi else klid; 
until keypressed; 
if readkey=iO then readkey; 
init; 
end. 

I toto posledni uvedene reseni vsak 
muze byt prepracovano a podstatne 
zdokonaleno. Napriklad Ize umistit na 
„silnici” vjiste vzdalenosti od precho- 
du fotocidlo, ktere bude pocitat projiz- 
dejici auta a podle hustoty provozu 
bude pruzne upravovat propustnost 
semaforu pro auta - tedy minimalni 
dobu, kterou sviti zelena. To uz se ale 
program zacne opravdu trochu kom- 
plikovat. Krome toho, takove vymoze- 
nosti nejsou ani na skutecnych silni- 
cich bezne. 

Tento priklad se snazil ukazat, ze 
i na tak jednoduche, bezne a samo- 
zrejme veci, jako je semafor, Ize hle- 
dat a najit radu vztahii, ktere je nutne 
pochopit a mozne zakomponovat do 
rizeni hracky. Napsat program uz neni 
potom ani prilis narocne na pouzite 
prostredky. Jista mira zjednoduseni je 
mozna a pro deti i naprosto nutna, ale 
meli bychom se ke zjednoduseni uchy- 
lovat vedome, ne z neznalosti. Cim 
vice se budeme pokouset priblizit reali- 
te, tim vice podobnych drobnych „kom- 
plikaci” budeme muset prekonavat. 

Zvuky 

I nejstarsi pocitace PC jsou vyba- 
veny malym reproduktorkem pro zvu- 
kovy vystup. Signal je typicky gene- 
rovan vnitfnim casovacem delenim 
vyssiho zakladniho kmitoctu. Krome 
toho existuji mechanizmy, jak na ten- 
to reproduktor dostat prakticky jaky- 
koli zvuk vcetne reci, i kdyz v dost ne- 
valne kvalite. 

Budeme vyuzivat zvukovy vystup 
predevsim prostrednictvim bezne pro- 
cedury ..sound” z unity „crt”. Nejjedno- 
dussim pokusem je vygenerovat ton 
440 Hz (ton al) na dobu jedne sekun- 
dy. Nesmime zapomenout ton vy- 
pnout, jinak bude pocitac pistet i po 
skonceni programu. 


sound ( 440 ) ; 
pockej ; 


nosound; 


Tuto moznost zvukove signalizace 
vyborne vyuzijeme treba pri testech 
nove pripojovanych spinacu, tlacitek 
nebo ruznych cidel na vstupy priprav- 
ku. Program, ktery vyuziva z unity 
„ovl" proceduru „pip” (ton 1000 Hz po 
dobu 0,1 s) muze vypadat treba takto: 

Program test_vstupu; 

{pr_010.pas} 

{Generuje ton pri aktivaci vstupul) 
uses ovl,crt; 

begin 

init; 

repeat 

if vstupl then pip; 
until keypressed; 
if readkey=IO then readkey; 
end. 

Musime brat v uvahu, ze tento pro- 
gram by mel zaregistrovat i na velmi 
kratke sepnuti vstupu, proto je treba, 
aby v klidu testoval vstup co nejcaste- 
ji. Z toho duvodu neni v tomto pripade 
v ceste programu zadne cekani a 
rychlost, s jakou vstup testuje, je dana 
jen moznostmi pocitace. Jakmile na- 
razi na sepnuty stav, pipne. 

Pro pripad, ze by nekdo chtel se- 
stavit z takto generovanych tonu jed- 
noduchou melodii, jsou v tab. 2 
potrebne kmitocty tonu v Hz pro pro- 
ceduru ..sound” v rozsahu tri oktav. Je 
to vsak dost pracne a vysledek neod- 
povida snaze, zaokrouhleni kmitoctu 
na cele Hz je prilis hrube a vysledek 
„taha za usi”. Na jednoduchou fanfaru 
nebo par tonu zname melodie to vsak 
stacit muze. 

Rychlym stridanim tonu muzeme 
snadno generovat ruzne klouzave 
zvuky, kolisave sireny a podobne. 
I kdyz tyto pokusy nemaji pro navaz- 
nost na dalsi praci nijak dulezity vy- 
znam, jsou u deti bez rozdilu veku vel- 
mi oblibene a maji jednu nespornou 
prednost. Daji se delat kdykoli i bez 
oddelujiciho pripravku na holem poci- 
taci. 

Priklad peti z mnoha moznych zvu- 
ku obsahuje nasledujici priklad. Jed- 
notlive zvuky se vyvolaji z klavesnice 
tlacitky „1” az „5”. Program soucasne 
ukazuje i detekci klaves a jiny zpusob 
ukonceni programu (mezernik). Pro- 
gram generuje vystrazny signal sloze- 
ny z rostoucich tonu, kolisavou poli- 
cejni sirenu, zvoneni telefonu, tikani 
hodin a radu nahodnych zvuku. 

Program zvuky; 

{pr_011.pas} 

{Efekty pod klavesami 1 az 5) 
uses ovl,crt; 
var tl:char; 
i, j : integer; 

begin 
repeat 
no sound; 
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Tab. 2. Kmitocty vybranych tonu v [Hz] 


Ton 

c 

cl 

c2 

c 

131 

262 

523 

cis, des 

139 

277 

554 

d 

147 

294 

587 

dis, es 

156 

311 

622 

e 

165 

330 

659 

f 

175 

349 

698 

fis, es 

185 

370 

740 

g 

196 

392 

784 

gis, as 

208 

415 

831 

a 

220 

440 

880 

his, b 

233 

466 

932 

a 

247 

494 

988 


repeat until keypressed; 

tl:=readkey; 

case tl of 

' 1 ' : 

{rostouci ton) 
for j:=l to 6 do 
for i : =50 to 600 do begin 
sound (i*2) ; delay (2) ;end; 

' 2 ' : 

{ kolisa j ici sirena) 
for j : =1 to 6 do begin 
for i : =200 to 500 do begin 
sound(i*3) f delay (1J ;end; 
for i ; =500 downto 200 do begin 
sound(i*3) ;delay(l) ;end; 
end; 

'3' : 

(zvoneni) 

for j:=l to 3 do begin 
for i : =1 to 11 do begin 
sound (300) ;delay (50) ; 
sound (580) ; delay (50 ) ; 
end; 

nosound; 
delay (1400) ; 
end; 

'4' : 

(tikani) 

for j ;=1 to 16 do begin 
sound(1000) ; delay (3) ; 
nosound;delay(226) ; 
sound (400) ;delay(5) ; 
nosound;delay(250) ; 
end; 

'5' :begin 
(nahodny zvuk) 
randomize; 

for j ;=1 to 100 do begin 
sound (random (1000) ) ; 
delay(random(80) ) ; 
end; 
end; 

' begin 

if readkey=#0 then readkey; 
exit; (ukonceni programu) 
end; 

else pip;(ostatni klavesy) 
end; 

until false; (nekonecna smycka) 
end. 

Tento zpusob neni jediny, kterym 
muzeme primo pocitacem generovat 
zvuk i bez k tomu urcene karty. Lze 
vyuzit treba i vystupu TxD obou serio- 
vych portu. Celkove muzeme genera- 
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vat nejmene ctyri tony soucasne - jeden 
casovacem a zvukovym vystupem, 
dva pres TxD seriovych portu a nej- 
mene jeden pine programove pres 
kterykoli vystup. 

Svetelna zavora 

Pro mnoho aplikaci se hodi opticky 
snimac. Muzeme pouzit fotorezistory, 
fotodiody i fototranzistory. Uvedena 
zapojeni byla vyzkousena s fototran- 
zistorem SFH309, ktery ma slusnou 
citlivost, je maly (prumer 3 mm) a fun- 
guje s sirokym spektrem svetla. 

Osvedcene zapojeni s OZ ve funk- 
ci komparatoru je na obr. 17. Casto 
potrebujeme spolecne dve cidla, proto 
je zde rovnou pouzit dvojity operacni 
zesilovac. Nastaveni citlivosti (resp. 
necitlivosti na uroveh okolniho osvet- 
leni) odporovym trimrem je spolecne. 
Vystupy operacnich zesilovacu prive- 
deme primo na seriove porty (vstupy 1 
az 6 na desce Interface PC). 

Fototranzistor SFH309 pripojime 
radeji kratsimi vodici, tak asi do 
50 cm, vodice mezi OZ a pocitacem 
(oddelovacim pripravkem) mohou byt 
podstatne delsi. Fototranzistor vzdy 
zapustime do neprusvitne, nejlepe 
cerne trubicky. Da se snadno vytvorit 
treba kouskem smrst’ovaci buzirky. 
Omezi se tim pronikani svetla ze stra- 
ny a podstatne zlepsi funkce. Stejne 
tak je vhodne zabranit vstupu svetla 
do fototranzistoru zezadu. 

Fotocidlo potrebuje ke spolehlive 
funkci i zdroj svetla. Jestlize zalezi na 
nepatrne velikosti a spotrebe, Ize pou- 
zit vysoce svitive cervene LED, s kte- 
rymi dosahneme spolehlive funkce na 
vzdalenost nejmene 20 az 30 cm. Se 
zarovkami jsou vysledky a dosazitel- 
na vzdalenost podstatne vetsi, spekt- 
rum svetla zarovky nesrovnatelne 
lepe cidlu vyhovuje. Postacuji i zarov- 
ky 5 V/100 mA. Cidlo by melo byt za- 
mireno primo na zdroj svetla, ktery je 
nejlepsi lehce zapustit do tmave mat- 
ne plosky. 

Je nezbytne chranit cidlo pred pri- 
mym svetlem z umeleho osvetleni na- 
pajeneho stridavym napetim, at’ uzjde 
o zarovky nebo jakekoli zarivky. Toto 
svetlo je modulovano sit’ovym kmito- 
ctem a snadno vyvola na vystupu 
komparatoru impulzy 100 Hz, u zafi- 
vek s menicem i kmitocty radu kHz. 
Zdroj svetla pro snimac musi mit stej- 


nosmerne vyhlazene napajeni, nejle- 
pe primo ze sbernice +5 V nebo +12 V 
ze zdroje PC. 

K vyzkouseni a sefizeni svetelne 
zavory vyzijeme jiz uvedeny program 
testvstupu. 

Jednoduche nzenf 
stejnosmerneho 
motorku 

Male stejnosmerne motorky muze- 
me primo pripojit mezi vykonove posi- 
lene vystupy seriovych portu a kladny 
pol napajeciho napeti 5 V nebo 12 V. 
Pokud pouzivame jako zdroj proudu 
spinany zdroj PC, nesmi odber (ani pri 
vsech motorech bezicich soucasne) 
prekrocit povolene zatizeni zdroje. 
Obecne vsak Ize doporucit, aby se 
motorky napajely z jineho zdroje. Male 
a levne motorky nemivaji ani uhliky a 
jejich plechove kartacky pri cinnosti 
motoru vyvolavaji takove ruseni, ze 
pocitac napajeny ze stejneho zdroje 
se casto „zakousne”. 

Vykonove posilenym vystupem 
muzeme nejen motor zapnout nebo 
vypnout, ale celkem dobre muzeme 
i pulzne regulovat jeho rychlost. Motor 
ridime stridou vytvarenych impulzu. 
Programem dosazitelny nejvyssi kmi- 
tocet impulzu je velmi zavisly na pou- 
zitem pocitaci, resp. jeho rychlosti. 
Cim vyssi kmitocet pouzijeme, tim je 
ucinnost regulace vyssi, ale v nizkych 
otackach ma motor maly moment a 
casto se i samovolne trenim zastavi. 
Naopak pri nizsim kmitoctu snadno 
dosahneme i velmi male rychlosti ota- 
ceni pri dostatecnem momentu, motor 
vsak sebou citelne skube a ucinnost 
regulace je nizsi. 

Pro prvni pokusy s regulaci otacek 
motoru muzeme pouzit nasledujici 
program (pr_012 .pas). Motor je pripo- 
jen na vystup 4 na desce Interface 
PC. Program zacina od stridy nula 
(motor je vypnuty), potom v deseti kro- 
cich zvysuje postupne otacky motoru, 
mezi jednotlivymi stupni pipne. Kmito- 
cet spinani je teoreticky 100 Hz, coz 
je pro male motorky rozumna hodno- 
ta. Konci se stridou rovnou jedne, 
tedy piny behem motoru. 

Takto nejak by program fungoval 
na idealnim, velmi rychlem pocitaci, 
kdy by nebylo nutne brat v uvahu 
doby, ktere pocitac potrebuje k vyko- 
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nani jednotlivych instrukci progra- 
mu - treba obsluze FOR cyklu. My 
vsak pracujeme s realnym pocitacem 
a v pripade PC 286 nebo 386SX do- 
konce podle soucasnych meritek vel- 
mi pomalym. Projevi se to na chodu 
motoru? 

Na zaver zkousky je pridan jeste 
dvousekundovy piny beh motoru bez 
jakychkoli impulzu, prime sepnuti. Na 
rozdilu v otackach motoru mezi timto 
poslednim stupnem a stupnem pred- 
chozim jasne pozname vliv rychlosti 
pocitace. Cim pomalejsi pocitac, tim 
je rozdil vetsi. Zadnou podstatnou 
zmenu otacek presto asi nezjistime. 

Program motor; 

{pr_012 .pas} 

(rizeni otacek motoru} 

uses ovl,crt; 

var strida,i; integer; 

begin 

init;pip; 

for strida;=0 to 10 do begin 

for i:=l to 200 do begin 
zapni4; 

delay (strida) ; 
vypni4; 

delay (10-strida) ; 
end; 

pip; end; 
zapni4; 
delay (2000) ; 
vypni4; 

pip3; 

init; 

end. 

Program muzeme drobne upravit, 
abychom poznali, jak se motor chova 
pri nizsich kmitoctech spinani. Posta- 
ci modifikovat vnitrni FOR cyklus 
napr. takto: 


for i;=l to round (200/3) do 
begin 
zapni4; 

delay (strida*3) ; 
vypni4; 

delay! (10-strida) *3) ; 
end; 


Tim se snizil kmitocet spinani na 
tretinu. Postupnym snizovanim vy- 
zkousime pro dany motor minimalni 
kmitocet, pri kterem sebou jeste prilis 
neskube. 

Je videt, ze takto resene impulzni 
rizeni jednoho motoru vytizi pocitac 
tak, ze prakticky uz nic jineho delat 
nemuze, prestoze naprostou vetsinu 
casu travi cekanim. Jakakoli dalsi cin- 
nost musi byt prave na ukor cekaci 
doby a kompenzovana tak, aby trvala 
vzdy priblizne stejne dlouho. Jinak se 
na chodu motoru projevi znacne ne- 
pravidelnosti. Pri stejnem kmitoctu je 
timto zpusobem mozne ridit i nekolik 
motoru. 

Existuje nekolik cest, jak nevyhodu 
vysokeho vytizeni pocitace pri rizeni 
motoru zatim uvedenym „skolskym” 
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Tab. 3. Vztah stridy impulzu a cisel vysilanych na seriovou linku 



zpusobem omezit nebo zcela odstra- 
nit. Postupne si ukazeme celkem tri. 

Vyuziti signalu TxD pro rizeni 

Dosud jsme museli kazdy vytvare- 
ny impulz spustit, pockat potrebnou 
dobu trvani impulzu, ukoncit impulz a 
pockat takovou dobu, aby kmitocet 
opakovani byl priblizne konstantnl. 
Tedy vse obslouzit programem. 

Muzeme take vyuzit signalu TxD 
na seriovem portu, ktery jsme dosud 
opomijeli. Tento vystup, ktery je rizen 
prirno z obvodu pro seriovou komuni- 
kaci, a ktery normalne slouzi k vysila- 
ni dat, nemuzeme libovolne nastavit 
nebo vypnout, jako ostatni pouzivane 
vystupy. Muzeme vsak nekdy posilat 
z pocitace takova seriova data, ktera 
vytvari pozadovany signal. 

Vystup TxD serioveho portu COM2 
spojime se vstupem jednoho z univer- 
zalnich posilovacu. Na vystup posilo- 
vace pripojime elektromotorek, aby- 
chom mohli vysledek bezprostredne 
pozorovat. 

Vysilana data se skladaji ze start- 
bitu, osmi jednotlivych bitu vysilaneho 
byte a stopbitu. Startbit bude na vy- 
stupu vzdy pri vyslani dat, tvori nej- 
kratsi dosazitelny impulz, tedy signal 
s nejmensi stridou. Data jsou razena 
za startbitem od nejmensi vahy po 
nejvetsi a jsou negovana. V seriove 
komunikaci se dale pouziva paritnl bit 
pro zabezpeceni a kontrolu prenosu 
dat, ten ale vypneme. Na konci dat je 
umisten stopbit, z naseho hlediska 
nutna mezera mezi dvema po sobe 
jdoucimi impulzy. 

Jak zlskame potrebna cisla vysila- 
na na seriovou linku, ukazuje tab. 3. 
Pro vypocet v programu se lepe hodi 
oznacit si stupne stridy 0 az 8 (startbit 
+ data = 9 bitu), vyjit z byte $FF a od- 
rotovat ho doleva o pozadovanou strl- 
du. Bereme v uvahu samozrejme jen 
jeden (spodni) byte vysledku. 


b:=lo($ff shl strida) ; 


Opakovaci kmitocet impulzu nasta- 
vime pomoci prenosove rychlosti ob- 
vodu UART. Ten ma vlastni, na pro- 
gramu i rychlosti pocltace nezavisly 
hodinovy vstup a vysledny kmitocet 
nasich impulzu bude 115200 (kon- 
stanta)/(delitel x 10) (vysllame celkem 
1+8 + 1 bitu). Z tohoto vztahu zpetne 
spocltame delitel, ktery je nutne pred 
generovanim impulzu predat obvodu 
UART. Presne Ize protokol komuni- 
kace s tlmto obvodem najit v jeho 
dokumentaci nebo napr. v programu 
VIHELP, popisujicim prostredky pocl- 
tacu PC a zachazenl s nimi. Podrob- 
nejsi vysvetleni daleko presahuje ra- 
mec naseho tematu. 

V programu je dale konstanta 
„doba”, ktera urcuje, jak dlouho bude 
kazdy ze stupnu ovladani motoru 
pouzit. Motor se postupne roztoci 
v devlti stupnich rychlosti, z nichz kaz- 
dy trva 2 s. 

program motor2; 

{pr_013.pas} 

(rizeni motoru pomoci TxD) 
uses ovl; 

const frekvence=1000; (Hz) 
doba=2 ( s } ; 
var strida, b:byte; 
i,delitel:word; 

begin 

delitel :=round 
(115200/ f rekvence/10) ; 
for strida :=0 to 8 do begin 
pip; 

b:=lo($ff shl strida); 

(bude se vysilat rychlost) 
port[com2+3] : =128 ; 
port[com2+0] :=lo (delitel) ; 
port[com2+l] : =hi (delitel ) ; 

(8 bitu, bez parity, 1 stopbit) 
port[com2+3] :=3; 
i:=frekvence*doba; 
repeat 

(je buffer volny?) 
if (port[com2+5) and 32) >0 
then begin 
(vysleme byte) 
port[com2] ;=b; 


(pocitame impulzy) 

dec(i) ; 

end; 

until i-0; 

end; 

end. 

Vyhodou tohoto programu oproti 
predchozimu je to, ze pouze odesle- 
me prislusny byte na port COM2 a ne- 
musime uz hlidat delku impulzu a jeho 
ukonceni, to zaridl UART sam. Ackoli 
to na prvni pohled z programu neni 
zcela zrejme, dost jsme si pomohli. 
Postacuje nam totiz odeslat jeden 
byte kazdou tislcinu sekundy a nemu- 
sl to byt ani presne vcas, protoze 
UART ma v sobe buffer na jeden byte 
dat. Kdyz tedy obcas program poskyt- 
ne data trochu pozdeji, na vystupnich 
impulzech se to vubec neprojevi. 

Provedeni jednoho pruchodu uve- 
denym repeat cyklem trva na pocitaci 
386SX20 asi 17 ps, cozje skoro sede- 
satkrat mene, nez je potrebna perioda 
obsluhy motoru. Do cyklu muzeme 
umlstit podstatne vice akcl. Staci za- 
jistit, aby cyklus vzdy probehl za mene 
nez 1 ms. 

Abychom se zbavili i nutnosti mo- 
tor vubec nejak obsluhovat, predame 
odesilanl byte obsluze preruseni a bu- 
deme jen na dane misto v pameti (do 
dane promenne) ukladat hodnotu vy- 
silaneho byte. Rizenlm motoru se bu- 
deme tedy zabyvat pouze pri zmene 
rychlosti, jinak pobezi vse samo. Toto 
reseni je podstatne narocnejsi na 
znalosti obsluhy vybaveni pocltace a 
pouzite prostredky jazyka, vede vsak 
k nejlepe fungujlcimu programu, ktery 
zvlada rizeni motoru zcela okrajove. 

Vyuziti interruptu 

Zakladnl myslenka preruseni ne- 
boli interruptu je velmi jednoducha. 
Jakmile probehne urcita akce, vyvola 
se tim signal (hardwaroveho) preruse- 
ni. Procesor prerusi svoji cinnost, od- 
skoci vykonat danou obsluhu preruse- 
ni a pak se vratl a pokracuje dal. 

Pro nas je podstatne, ze vyprazd- 
neni bufferu pro odesilani dat obvodu 
UART je jednou z akci, ktera muze 
(kdyz se tak cinnost serioveho portu 
programove nastavl) vyvolat preruse- 
ni. V dobe vzniku preruseni se prave 
zacina odesllat dais! byte, mame tedy 
vetsinou dost casu na to, abychom 
predali do bufferu dais i data. Tato 
data vezme a odesle z dane promen- 
ne obsluha preruseni sama. Rizeni 
motoru pod prerusemm predpoklada 
ctyri zakladni kroky. 

V prvni fade je treba preruseni a 
rezim serioveho portu inicializovat, 
tedy nastavit prenosovou rychlost a 
format dat, povolit vubec vznik preru- 
seni, presmerovat obsluhu preruseni 
na proceduru, kterou sami napiseme 
a nakonec i odeslat prvni byte dat, 
kterym se odesilani rozebehne. To 
vse je dost komplikovana vec. 

Za druhe musime umet preruseni 
vratit do puvodniho stavu a odesilani 
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dat zastavit, protoze po ukonceni na- 
seho programu nebo jeho zhavarova- 
ni by bylo preruseni presmerovano do 
mist, kde jiz zadny smysluplny pro- 
gram neni. Dusledkem by bylo s nej- 
vetsi pravdepodobnosti „zakousnuti” 
pocitace, ale stat by se mohlo napros- 
to cokoli. Toto odinicializovani musi- 
me pfipojit k vykonani obsluhy konce 
programu i chybovych stavii. To take 
neni zrovna jednoduche. 

Tretim krokem, ktery musime ve 
svem programu zvladnout, je napsat 
vlastni obsluhu preruseni. Tu tvori ale 
v porovnani s predchozim jen kratka a 
jednoducha procedura - treba tahle: 

procedure handleinterrupt; 

interrupt; 

begin 

port [ $20 ] :=$20; 

port [comport] ;=outbyte; 
end; 

Zmena hodnoty byte odesilanych 
dat je velmi prosta - zapiseme potreb- 
ny byte do dane promenne, u nas se 
jmenuje „outbyte”. Nic vie. 

Vetsinou budeme rid it pomoci 
zmeny stridy pri konstantnim kmitoctu 
(zmena odesilanych dat pri stale rych- 
losti komunikace). Jindy muzeme po- 
trebovat odesilat impulzy podstatne 
presnejsi sirky, k cemuz vyuzijeme i ri- 
zeni kmitoctu, hodi se nam jeste zme- 
na tohoto kmitoctu (frekvence) v pru- 
behu odesilani - procedura „frekv“. 

Aby se zjednodusila prace se seri- 
ovym portem pod interruptem, je pri- 
pravena druha unita COMINT, ktera 
potrebne procedury obsahuje. Vypis 
teto unity neni uveden, zajemci ji na- 
jdou v souboru comint. pas. Procteni a 
porozumeni jejimu zapisu vyzaduje 
znalosti hardwaru pocitace PC. 

V nasem programu musime nej- 
prve spocitat hodnotu byte, ktery 
se ma odesilat a zapsat ho do pro- 
menne outbyte (data DO az D7 v tab. 3). 
K inicializaci slouzi procedura „init- 
int(cislo_portu:byte, frekvence: word) 
se dvema parametry. V prvnim zada- 
vame cislo com portu (tedy treba 1 
pro COM1), ve druhem kmitocet v Hz, 
jaky maji vystupni impulzy mit. Iniciali- 
zace okamzite spousti i odesilani dat. 

Skutecny kmitocet vznikajicich im- 
pulzu se neshoduje presne s tim, kte- 
ry zadame. Odchylka je tim vetsi, cim 
je kmitocet vyssi. Souvisi to s moz- 
nosti zadat pouze celociselneho deli- 
tele do obvodu UART. Kdyz chceme 
kmitocet 1000 Hz, vyjde delitel 11520/ 
/1000 = 11,52, coz zaokrouhlime na 
12. Skutecna kmitocet bude 960 Hz. 
Pokud bychom vzali delitel 11, dosta- 
neme 1047 Hz. Pro kmitocty kolem 
100 Hz, ktere potrebujeme, je vsak uz 
chyba mensi nez 1 %. Napr. impulzy 
se stridou 1:1a kmitoctem 100 Hz na 
COM2 vytvorime takto: 


outbyte;=240; 
initint (2,100) ; 


Neni mozne motor vypnout, jestlize 
odesilani dat bezi. Vzdy bude vysilan 
alespon startbit (pri byte $FF), ktery 
vytvori stridu priblizne 1 : 9. Aby se 
motor zastavil, musime zastavit i ode- 
silani dat procedurou „deinitint”. Tuto 
proceduru ale uz nemusime pouzi- 
vat pred koncem programu, sama se 
aktivuje jak pri normalnim ukonceni 
programu, tak pri chybe. Nasledujici 
fragment programu by zapnul mo- 
tor rizeny COM2 pri frekvenci 100 Hz 
na dostupne maximum na dobu jedne 
sekundy . 

outbyte (0) ; 
initint (2,100) ; 
delay (1000) ; 
deinitint; 


Procedura „frekv(kmitocet:word)“ 
zmeni kdykoli za chodu kmitocet ode- 
silanych dat. Jako parametr pouzije- 
me pozadovany kmitocet v Hz. Muze- 
me treba vyzkouset, jak se projevuje 
zmena kmitoctu pri nejmensi dosa- 
zitelne stride 1 : 9. Fragment progra- 
mu postupne vyzkousi kmitocty 5 az 
100 Hz s krokem po 5 Hz. 

outbyte ;=$FF; 
for i:= 5 to 20 do begin 
pip; 

initint (2, i*5) ; 
pocke j ; 
deinitint; 
end; 


Nasledujici program motor3 dela 
temer totez co program motor2, ale 
uplne jinym zpusobem. Necha roz- 
behnout motor postupne v deviti stup- 
nich, kazdy bude trvat 2 s. Cely cyklus 
se zopakuje celkem trikrat pro ridici 
kmitocty 25, 100 a 400 Hz. Vyznamny 
rozdil je v tom, ze obsluze motoru ve- 
nujeme pozornost velmi zridka, v na- 
sem pripade jednou za dve sekundy 
pri zmene rychlosti, jinak program 
ceka nebo muze delat cokoli jineho. 

program motor3; 

[pr_014.pas] 

[rizeni motoru pod interruptem) 
uses comint, ovl,crt; 
var strida,i;byte; 
kmitocet; word; 

begin 

for i:=0 to 2 do begin 
(vypocet kmitoctu) 
kmitocet ; =25* (1 shl (i*2) ) ; 
delay (2000) ; 

for strida:=0 to 8 do begin 
[vypocet bytu dat) 
outbyte:=lo($ff shl strida) ; 
pip; 

initint (2, kmitocet) ; 
delay (2000) ; 
deinitint; 
end; 
end; 
end. 
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Rizeni motoru prevodnikem D/A 

Dosud jsme se zabyvali ciste pro- 
gramovym rizenim rychlosti motoru, 
impulzy s pozadovanou stridou vyra- 
bel pocitac. Prvni uvedeny zpusob je 
dobre zvladnutelny a priihledny, vhod- 
ny pro pokusy, ale mnoho jineho uz 
pocitac nezvladne. Druhy je logicky 
mezistupen k tretimu, efektivnimu, 
avsak na znalosti technickeho vyba- 
veni PC a programove obsluhy dost 
narocnemu zpusobu. Ctvrta metoda 
vyzaduje doplneni elektronickeho ob- 
vodu a pripojeni na paralelni port, zato 
ale je nejjednodussi na obsluhu pro- 
gramem a pocitac viibec nezatezuje. 

Vracime se k puvodnimu zameru 
programovani, ktere zvladnou i deti. 
I kdyz pouziti procedur pro rizeni mo- 
toru pod interruptem je velmi jednodu- 
che, porozumet tomu, co se v pocitaci 
deje je narocnejsi a detailni pochope- 
ni unity COMINT znacne obtizne. 

Zakladni myslenka ridit motor po- 
moci prevodniku D/A je nasledujici. 
Na paralelni port odesleme byte, ten 
vyvola na vystupu prevodniku urcite 
napeti. Vezmeme jine napeti pilovite- 
ho prubehu, ktere si vyrobime v obvo- 
dech a komparatorem je porovname. 
Jestlize bude napeti z prevodniku 
mensi nez minimum piloviteho napeti, 
zustane vystup trvale vypnuty bez im- 
pulzii. S postupne rostoucim napetim 
na prevodniku zacne komparator 
pracovat a strida impulzu se bude 
menit ve prospech sepnuti motoru, az 
napeti na prevodniku presahne i ma- 
ximum piloviteho napeti a motor zu- 
stane trvale sepnuty. 

Pouzijeme-li podle tohoto popisu 
osmibitovy prevodnik a velmi peclive 
obvody seridime, muzeme teoreticky 
dosahnout stavu, kdy pri zapsani bytu 
0 na LPT motor stoji, v rozsahu 1 az 

254 je stridou rizen jeho vykon a pri 

255 je motor naplno sepnut. Jemnost 
rizeni je podstatne vetsi nez v pred- 
chozich pripadech. 

Kmitocet impulzu zalezi jen na ob- 
vodech a nijak se pocitace nedotyka. 
Stejne tak uz spolu nesouvisi kmitocet 
a dosazitelna jemnost rizeni stridy. 
Muzeme tedy nastavit i kmitocty vyssi, 
rekneme v rozsahu 1 az 10 kHz, ktere 
jsou vhodne pro motory s mensi in- 
dukenosti, tedy motory s vyssi prou- 
dovym odberem a vykonem. Z hlediska 
programove obsluhy je tento zpusob 
nejjednodussi ze vsech. Na LPT zapi- 
seme odpovidajici byte, to je vse. 

Schema obvodu pro rizeni motoru 
prevodnikem D/A, ktere je soucasti 
pripravku Interface PC, bylo na obr. 7. 
Oproti popisu principu jsou pouzity 
dva ctyrbitove prevodniky na jednom 
paralelnim portu a k obsluze je pri- 
pravena dvojice procedur v unite OVL 
- rychlost_1(byte) a rychlost_2(byte). 
Zadany byte urcuje stridu impulzu na 
prislusnem vystupu v rozsahu 0 az 15 
(jsou brany v uvahu jen dolni ctyri bity 
z byte). 

Sestavime tedy opet podobny pro- 
gram, ktery roztoci motor postupne 
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Obr. 18. Zapojeni rele pro prepinani 
smeru otaceni motoru 


Rele 1 



Motor 


Obr. 1 9. Zapojeni svorkovnice rele na 
desce Interface PC. Rele meni smer 
otaceni motoru 

v sekundovych krocich od nuly do pl- 
nych otacek. Motor je stale pripojen 
na univerzalni posilovac, vstup tohoto 
posilovace spojime s vystupem pi az 
p4 impulzii z prevodniku A/D na des- 
ce Interface PC. 

Program motor4; 

{pr_015.pas} 

(rizeni motoru D/A prevodnikem} 
uses ovl; 
var i : byte; 

begin 

init; 

for i:=0 to 15 do begin 
rychlost_l (i) ; 
pip; 
pockej; 
end; 

rychlostJL (0) ; 
end. 

Jednoduche a prehledne obsluze 
motoru se nemusime prubezne veno- 
vat. Ale potrebujeme zdroj piloviteho 
napeti, komparator a prevodnik. 

Zatim jsme uvazovali jen regulaci 
rychlosti pohybu motorku bez zmeny 
smeru otaceni. K doplneni teto funkce 
bychom potrebovali rozsirit vykonove 
posileni na portech na pine ovladany 
mustek. Pro nase ucely vsak bude na- 
prosto stacit doplnit rele se dvema 
pfepinacimi kontakty zapojenymi pod- 
ie obr. 18. Vyuzijeme rele na priprav- 
ku Interface PC, vyvody na svorkovni- 
ci pospojujeme podle obr. 19. 

Z technickeho hlediska to neni nut- 
ne, ale meli bychom od pocatku dbat 
na to, aby kontakty rele prepinaly ve 
stavu bez proudu, tedy v dobe, kdy 
motor stoji. Nasledujici priklad poma- 
lu roztoci motor do plnych otacek, po- 
malu zastavi a totez udela i pri obra- 
cenem smyslu otacek. 


Program motor5; 

{pr_016.pas} 

(rizeni motoru D/A prevodnikem} 
uses ovl; 
var i , j : byte ; 

begin 

init; 

for j : =1 to 2 do begin 

for i:=0 to 15 do begin 
rychlostJL (i) ; 
cekej (4) ; 
end; 

for i : =15 downto 0 do begin 
rychlostJL (i) ; 
cekej (4) ; 
end; 

zapni_rel; 

end; 

vypni rel; 
end. 

Doplnky k an tod raze 

Domaci autodraha je vdecnou 
hrackou pro jednoduche pokusy s pri- 
pojen im pocitace, zejmena co do 
moznosti vyzkouset ruzne druhy cidel. 
Az dosud jsme v programech nepou- 
zivali vystupu a zobrazeni na monitoru 
PC, ten slouzil pouze k psani progra- 
mu a ovladani prekladace, pri vlast- 
nim behu programu se vubec neuplat- 
nil. V dalsich prikladech se mu uz 
vyhybat nebudeme, ale ziistaneme 
zamerne jen u nejjednodussiho pouzi- 
ti v textovem rezimu. 

Smyslem uvadenych prikladu je 
ukazat obsluhu pripojenych zarizeni a 
pripravku. Jakmile se pustime i do vy- 
tvareni vzhledneho projevu na obra- 
zovce, zejmena v grafickem modu, 
delka a pracnost programu nekolika- 
nasobne vzroste. Proto rozsireni v tom- 
to smeru zustane na chuti a zajmu 
uzivatelu, omezime ho na minimum. 
Dalsim duvodem je to, ze tyto casti 
programu se znacne list nejen zapi- 
sem, ale uz pristupem k reseni v ruz- 
nych grafickych prostredich. Nicmene 
je rozumne po odzkouseni funkcnosti 
zakladu programu rozvijet je dal a pro- 
pracovat vzhled a komfort obsluhy 
tak, aby byly nejen schopne cinnosti, 
ale i „user friendly”. 


Pocitadlo kol 

Pocitani ujetych kol patri jiz temer 
k zakladni vybave kazde autodrahy. 
Protoze vetsina z nich ma dve drahy 
pro auta, vyrobime rovnou snimaci 
„most” se dvema cidly. 

Do zvoleneho dilu drahy, pravde- 
podobne rovneho, navrtame dve dirky 
pro zdroje svetla (LED) tak, aby projiz- 
dejici auto urcite paprsek prerusilo 
(obr. 20). Do „mostu” nad drahou 
umistime presne nad zdroje svetla 
opticka cidla (fototranzistory SFH309). 
Zasadne davame cidla tak, aby se di- 
vala smerem dolu, zatimco zdroje 
svetla dame do drahy, aby svitila 
vzhuru. To proto, ze jinak by se pri 
rozsvicenem umelem osvetleni, ktere 
byva nahore, sit’ovym kmitoctem mo- 
dulovane svetlo dostalo do cidel a 
misto prujezdu auticek bychom me- 
rili kmitocet site. 

Pri pouziti vhodnych LED je mozne 
udelat zdroje svetla tak ploche, ze se 
vejdou do dilu drahy a nevycnivaji 
dolu. LED na misto prilepime, vyborne 
se osvedcila tavna pistole na roubiky 
plastickeho lepidla. Kazda LED je na- 
pajena pres rezistor o odporu 220 Q 
napetim 5 V. 

Schema komparatorii a zapojeni 
fototranzistoru bylo uvedeno na obr. 
17. Vystupy (WST.) komparatoru jsou 
zavedeny do vstupu 4 a 5 pripravku 
Interface PC. Vyzkousime si nejprve 
obsluhu jednoho cidla s vypisem po- 
ctu ujetych kol, toje nejjednodussi. 

Program prujezd; 

(pr_017 .pas} 

(pocitani kol pro jedno auto} 

uses ovl,crt; 

var pocet; integer; 

begin 

init; 

clrscr; 

writelnf' Pocitani ujetych kol'); 

writeln; 

pocet;=0; 

repeat 

if vstup4 then begin 
writeln (pocet: 10) ; 
inc (pocet) ; 


+5 V 


vystup 1 


vystup 2 


GND 



Obr. 20. Pocitadlo ujetych kol - umlsteni LED a fototranzistoru na autodraze 
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Rele 1 


pip; 

while keypressed or vstup4 do; 

cekej (10) ; 

end; 

until keypressed; 

if readkey=IO then readkey; 
end. 

Cidlo je pripojeno na vstup 4, auto 
stoji na startu kousek pred nim, prvni 
prujezd (nulte kolo) je tedy bezpro- 
stfedne po startu. Na rozdil od prikla- 
du pr_010 je zde nutne osetrit situaci, 
kdy auto projizdi cidlem pomalu (nebo 
dokonce v miste cidla zastavi) a poci- 
tac by stihnul vyhodnotit prujezd sve- 
telnym paprskem mnohokrat rychle za 
sebou. Proto je zde pipnuti, ktere re- 
akci pocitace zpomali, a kdyby ani 
to nestacilo, neomezene cekani na 
svetleny paprsek (mimochodem, be- 
hem nej nelze program ukoncit stis- 
kem libovolne klavesy, jedine pres 
Ctrl + Break). 

Ani to vsak nestaci, svetlo muze 
problesknout pri prujezdu auta kolem 
kol, oknem nebo jinym otvorem a za- 
pocita se zase vie kol, nez ma byt. Vy- 
jdeme tedy z toho, ze objeti kola trva 
urcite vie nez jednu sekundu, a prida- 
me dalsi cekani. Teoreticky by jeste 
i nyni mohlo dojit k chybe pri opravdu 
velmi pomalem pohybu, ale pokud ne- 
budete svindlovat a snazit se chybu 
vyvolat, chyba uz v praxi nenastane. 

Program, ktery by pocital prujezdy 
pro obe auta na draze, musime navrh- 
nout vyrazne odlisne. V predchozim 
priklade travil pocitac vetsinu casu 
neustale opakovanym testovanim pru- 
jezdu cidlem, pocatek prujezdu tedy 
zachytil velmi presne. Jakmile vsak 
zachytil pocatek prujezdu, nebyl jistou 
dobu vubec schopen na dalsi podnet 
reagovat. Jakou dobu? Urcite cas pip- 
nuti (0,1 s) plus dobu, po kterou pru- 
jezd auta kolem cidla prekrocil dobu 
0,1 s plus dalsi cekaci dobu 1 s. Nej- 
mene tedy 1,1 s po prujezdu prvniho 
auta kolem cidla by melo druhe auto 
na to, aby naprosto nepozorovane 
proklouzlo kolem sveho cidla. 

Je treba udelat vyhodnoceni prii- 
jezdu auta tak, aby ho program jen 
rychle zaznamenal a okamzite se 
mohl venovat i druhemu cidlu. Tento- 
krat take nemuzeme vypisovat pocet 
prujezdu pod sebe a pripadne nechat 
obrazovku rolovat, zaznam by byl vel- 
mi neprehledny. Jakmile kterekoli 
auto projede kolem cidla, zmeni se 
pocet prujezdu, vypise se na obrazov- 
ku na stale stejne misto a soucasne 
se nastavi pocitadlo testovacich cyklu 
„doba”, po ktere bude jakakoli zmena 
na danem cidle ignorovana (program 
ji ani netestuje). 

Program prujezd2; 

{pr_018 .pas} 

{pocitani kol pro dve auta) 
uses ovl,crt; 
const doba=2000; (ms) 
var pocetl,pocet2,dobal, 

doba2: integer; 


begin 

init; 

clrscr; 

writeln 

('Pocitani kol pro dve auta'); 
writeln; 

pocetl:=0;pocet2:=0; 

repeat 

if vstup4 and (dobal=0) then 
begin 

inc(pocetl) ; 
dobal;=doba; 
gotoxy (3,3) ; 

writeln(pocetl:10,pocet2:10) ; 
end; 

if vstup5 and (doba2=0) then 
begin 

inc(pocet2) ; 
doba2;=doba; 
gotoxy (3,3) ; 

writeln(pocetl:10,pocet2:10) ; 
end; 

delay (1) ; 
dec(dobal) ; 

if dobal<0 then dobal;=0; 
dec(doba2) ; 

if doba2<0 then doba2:=0; 
until keypressed; 
if readkey=IO then readkey; 
end. 

Pokud by auto zastavilo primo pod 
cidlem, bude mu kazde 2 s pfipocita- 
no jedno kolo. Tato vlastnost osetrena 
neni, muze byt predmetem dalsiho vy- 
lepseni. 

Bylo by jiste zajimave vedet, jak 
rychle testovani cidel probiha a zda 
prece jen nemuze auto nejak pro- 
klouznout. Na pocitaci 386SX20 po 
odstraneni prikazu „delay(1)” a uprave 
hlavni smycky programu na cyklus 
s pevnym poctem pruchodu trvalo 
60000 pruchodu asi 2,5 s - tedy pru- 
jezd auta byl testovan zhruba 24000x 
za sekundu. 

Po vraceni „delay(1)” (cekani po 
dobu 1 ms) trvalo totez predpoklada- 
nych 63 s, behem kterych projelo auto 
16x kolem cidla. Je videt, ze i v tomto 
pripade travi program 95 % casu v pro- 
cedure delay, ale krome toho zvlada 
priblizne lOOOx za sekundu otestovat 
cidla. 

Jak daleko vlastne ujede auto po 
draze za tu tisicinu sekundy? Rychle 
zavodni modely stavene specialisty 
jezdi rychlosti i kolem 50 km/h (ty na 
domacich drahach mnohem mene), 
coz je priblizne 14 m/s. Za tisicinu se- 
kundy ujede 1,4 cm. Je-li auto prumer- 
ne dlouhe 10 cm, je ho nas pocitac 
schopen v teto rychlosti zaregistrovat 
priblizne se sedminasobnou rezervou. 
Skutecna rychlost detskych auticek 
na domacich drahach je maximalne 
tretinova, rezerva moznosti naseho 
pocitace 386SX20 vyjde asi dvace- 
tinasobna. 

Program muzeme dale rozsirit tre- 
ba tak, ze pocitac sam odpocita start, 
zacne zavod pripojenim napajeciho 
napeti pres rele, registruje ujeta kola a 
vypisuje pocet kol do konce. Jakmile 



Obr. 21. Zapojeni svorkovnice rele na 
desce Interface PC. Rele spina proud 
do jednoho jizdniho pruhu autodrahy 

jedno z aut ujede predvoleny pocet 
kol, odpoji napajeni a vyhodnoti viteze. 

Napajeci napeti privedeme na dra- 
hu pres spinaci kontakty rele 1 podle 
obr. 21, cidla jsou stejne jako v pred- 
chozim pripade na vstupech 4 a 5. 
Auta stoji za cidly (nez poprve prerusi 
paprsek, musi objet cele kolo), kazdy 
prujezd cilem se tentokrat pocita jako 
kolo. Program vyzaduje zadat pocet 
kol a ocekava cislo - pokud dostane 
neco jineho, skonci s chybou. Zadani 
zaporneho cisla vyhodnoti jako „ne- 
platny pocet kol”. Je uvazovana i moz- 
nost, ze by obe auta dojela do cile 
soucasne, i kdyz je to krajne neprav- 
depodobne. Umele ji vyvolame tak, ze 
spustime zavod na 0 kol. 

Program zavod; 

(pr_019.pas) 

(zavod na dany pocet kol) 
uses ovl,crt; 

const doba=2000; (ms prodleva) 
var pocetl,pocet2,dobal,doba2, 
kola : integer; 
procedure startpip; 
begin 

sound(lOOO) ;delay (500) ; 
nosound;delay(500) ; 
end; 

procedure tus; 
begin 

sound (440) ;cekej (2) ; 
sound (494) ;cekej (2) ; 
sound (523) ;cekej (2) ; 
sound (659) ; cekej (8) ; 
no sound; 
end; 

begin 

init; 

clrscr; 

write)' Zavod na dany pocet kol'); 

writeln(' pro dve auta'); 

tus; 

writeln; 

write!' Jaky bude pocet kol? '); 

readln(kola) ; 

writeln; 

if kola<0 then begin 
writeln(' Neplatny pocet kol' ) ; 
cekej (20) ; 
exit; 
end; 

write)' Pripravit ke startu !'); 

gotoxy (24, 5) ; 

writeln)'- 3 -' ) ; 

startpip; 

gotoxy (24 , 5) ; 

writeln)'- 2 -' ) ; 

startpip; 

gotoxy (24 , 5) ; 

writeln)'- 1 -') ; 

startpip; 
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gotoxy {24, 5) ; 
writeln ('START'); 
startpip; 
zapni_rel; 
writeln; 

writeln)' Draha 1 Draha 2'); 
writeln; 

pocetl:=kola;pocet2;=kola; 

repeat 

if vstup4 and (dobal=0) then 
begin 

dec(pocetl) ; 
dobal:=doba; 
gotoxy (1,9) ; 

writeln (pocetl:8,pocet2;ll) ; 
end; 

if vstup5 and (doba2=0) then 
begin 

dec(pocet2) ; 
doba2:=doba; 
gotoxy (1,9) ; 

writeln (pocetl:8,pocet2:ll) ; 
end; 

delay (1) ; 
dec (dobal ) ; 

if dobal<0 then dobal : =0 ; 
dec(doba2) ; 

if doba2<0 then doba2:=0; 
until (pocetl=0) or (pocet2=0) ; 
vypni rel; 
writeln; 

if (pocetl=0) and (pocet2=0) then 
writeln)' Nerozhodne !!') 
else begin 

write)' Vitezi vuz na draze '); 
if pocetl=0 then 
writeln (' jedna' ) 
else 

writeln ('dva' ) ; 
end; 
tus; 

repeat until keypressed; 
if readkey=IO then readkey; 
end. 

Pokud bychom potrebovali odbou- 
rat z programu cyklicke hlidani cidel a 
venovat se necemu jinemu, miizeme 
opet pripadne presunout zaregistrova- 
ni prujezdu auta do obsluhy interrup- 
tu, ktery je aktivovan zmenou stavu na 
vstupech. Procedury pro toto reseni 
vsak pripraveny nejsou a jejich vytvo- 
reni muze byt nametem pro dalsi, na- 
rocnejsi praci. 

Mereni casu 

Pro mereni casu se vyborne hodi 
moznost cist systemovy cas pocitace. 
V unite „OVL” je pripravena realna 
funkce „cticas”, ktera vraci cas v se- 
kundach (od zacatku dne) s presnosti 
na setiny sekundy. S timto vyjadrenim 
casu se velmi jednoduse pocita. 

V nasledujicim prikladu je ukazka 
pouziti teto funkce. Program vypise 
cas pocatku testu v sekundach, pocka 
presne jednu sekundu a vypise cas 
konce testu. Teoreticky by se mely 
oba easy lisit prave o tu jednu sekun- 
du, ale my asi zjistime rozdil ponekud 
vetsi, typicky o setinu sekundy. Dal 
program vycisli cas konce testu v ob- 
vyklem tvaru hod:min:sec. Vzhledem 


k urceni programu neni osetren pri- 
pad, kdy v prubehu testu projde cas 
pulnoci. 

Program test_casu; 

(pr_020.pas) 

(prace s casern) 
uses ovl,crt; 
var casl,cas2;real; 
hod, min, sec:word; 

begin 

clrscr; 

writeln (' Pouziti funkce cticas'); 

writeln; 

casl;=cticas; 

writeln (' Zacatek' , casl : 12:2) ; 

pocke j ; 

cas2;=cticas; 

writeln ('Konec ' , cas2 : 12 : 2 ) ; 
writeln ('Rozdil ' , (cas2- 
casl) : 12 : 2 , ' [ s ] ' ) ; 
writeln; 

write (' Je prave ' ) ; 
hod:=trunc(cas2/3600) ; 
min:=trunc( (trunc(cas2) mod 
3600)/60); 

sec;=trunc(trunc(cas2) mod 60); 
write (hod, ' : ' ,min, 
if sec<10 then write!' O'); 
writeln(sec) ; 
repeat until keypressed; 
if readkey=f0 then readkey; 
end. 

Dalsi priklad velmi jednoduse men 
cas potrebny k projeti jednoho kola na 
autodraze. Je vyhodnocovano cidlo 
na prvni draze (vstup 4). Pri prvnim 
prujezdu po startu programu zacne 
mereni, po kazdem nasledujicim pru- 
jezdu se vypise cas kola v sekundach. 

Program cas_kola; 

(pr_.Q21.pas) 

(mereni casu na jedno kolo) 
uses ovl,crt; 

const doba=1000; (ms prodleva) 
var casl,cas2:real; 

begin 

init; 

clrscr; 

write)' Mereni casu na jedno'); 
writeln)' kolo'); 
cas2:=0; 
repeat 
repeat 

if keypressed then begin 
if readkey=#0 then readkey; 
exit; 
end; 

until vstup4; 
casl:=cticas; 
pip; 

if cas2>0 then begin 
gotoxy (1,3) ; 
write (' Cas kola : ' ) ; 
writeln) (casl-cas2) : 8 : 2, ' s'); 
end; 

cas2:=casl; 
delay(doba) ; 
until keypressed; 
if readkey=f0 then readkey; 
end. 
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Auticko na draze s bocnim optickym 
cidlem (fototranzistorem) 

Ponekud dokonalejsi a prakticky 
pouzitelny je nasledujici program pro 
vyhodnoceni zavodu jednoho auta na 
cas. Drahu je mozne sestavit s jednim 
nebo lichym poctem krizeni tak, aby 
obe stopy byly vyuzivany jednim au- 
tem. Pocet kol zavodu je urcen pro 
zjednoduseni konstantou. Mereni za- 
cina prvnim prujezdem kolem cidla, 
po dojeti kazdeho kola pocitac pipne 
a vypise cas kola. Prubezne easy se 
ukladaji do pole a vyhodnocuji az na- 
konec. Po dokonceni daneho poctu 
kol se vyhodnoti celkovy cas, prumer- 
ny cas na kolo a cas nejrychlejsiho 
kola. Zapojeni cidla je stale stejne, 
vstup 4. 

Program zavod_na_cas; 

(pr_022 . pas } 

(zavod auta na cas 5-ti kol) 
uses ovl,crt; 

const doba=1000; (ms prodleva) 
kola=5; (pocet kol zavodu) 
var i,kolo:integer; 
mincas,pomcas:real; 
cas:array[0. .kola] of real; 

begin 

init; 

clrscr; 

write)' Zavod jednoho auta na ' ) ; 

writeln('cas - pocet kol ' , kola) ; 

writeln; 

kolo:=0; 

repeat 

repeat until vstup4; 

cas [kolo] :=cticas; 

pip; 

if kolo>0 then begin 
write)' Cas kola ' , kolo : 3 , ' : ' ) ; 
write ((cas [kolo] - 
cas [kolo-1] ) : 18:2) ; 
writeln)' s'); 
end; 

inc (kolo) ; 

delay(doba) ; 
until kolo>kola; 
writeln; 

write)' Cas celkem : '); 

pomcas:=cas [5] -cas [0] ; 
writeln (pomcas: 12:2, ' s'); 
write)' Prumer na kolo: '); 

writeln(pomcas/kola:12:2, ' s'); 
write)' Nejrychlejsi kolo :'); 
mincas:=10E6; 
for t:=l to 5 do 

if (cas [i] -cas [i-1] ) <mincas then 
mincas:=cas[i]-cas[i-l] ; 
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writeln (mincas : 12 : 2 , ' s'); 
repeat until keypressed; 
if readkey=IO then readkey; 
end. 

Samozfejme je mozne kombino- 
vat, vytvofit program pro zavod dvou 
aut s vyhodnocenim viteze a jeho 
casu, prubezne vypisovat easy na jed- 
no kolo obou soupefu, vycislovat ca- 
sovou ztratu na vedouciho jezdee atd. 

Mefeni rychlosti 

Uloha mefeni rychlosti je velmi po- 
dobna mereni casu na jedno kolo, jen 
potfebujeme znat delku drahy, kterou 
auto ujede. Ke zmefeni delky okruhu 
se vyborne hodi krejeovsky metr, ktery 
vedeme drazkou v draze. 

Pfi optimalni jizde je nutne fidit 
rychlost auticka, zpomalovat do zata- 
cek, kfizeni nebo zuzeni drahy. Jaka 
je maximalm rychlost auta na rovnem 
useku rychlost a jakou se projizdi za- 
tacka? 

Opticke sondy pfipojene ke vstu- 
pum 4 a 5 umistime na pozadovany 
usek drahy do pfesne odmefene 
vzdalenosti. Cim bude mefeny usek 
delsi, tim se podafi rychlost zmefit 
pfesneji. Naopak cim bude kratsi, tim 
mensi budou zmeny rychlosti behem 
prujezdu. V praxi asi bude vzdalenost 
pfiblizne rovna jednomu az dvema 
dilum drahy - tedy neco mezi 20 a 
30 cm. Jednoduchy program muze vy- 
padat tfeba takto: 

Program rychlosti; 

{pr_023 . pas } 

{mereni rychlosti auta) 
uses ovl,crt; 

const delka=300; {mereny usek v mm) 
var start, cil,rychlost:real; 

begin 

init; 

clrscr; 

repeat until vstup4; 
start:=cticas; 
repeat until vstup5; 
cil;=cticas; 

rychlost :=delka/ (cil-start) / 1 0 0 0 ; 
writeln(rychlost:10;l, ' m/s'); 
pip; 

repeat until keypressed; 
if readkey=IO then readkey; 
end. 

Tento program je pfehledny, jed- 
noduchy a zcela funkeni, muzeme ho 
vyzkouset, ale rozumne pouzitelne vy- 
sledky nedava. Cas zde mefime cte- 
nim systemoveho casu procedurou 
cticas s pfesnosti na 0,01s. Pfitom 
auto pri rychlosti pouhe 3 m/s, ktera je 
dosazitelna na prakticky kazde draze, 
projede usek 30 cm za pouhych 0,10 s. 
Mereni je nejen velmi nepresne, ale 
ma i prilis male rozliseni. 

Je treba bud’ prodlouzit mereny 
usek nebo zpresnit mereni casu. Po- 
trebovali bychom, aby auto zustalo 
v merenem useku asi 0,5 az 1 s, pak 


by chyby mereni dostatecne klesly. To 
asi nepujde, dostali bychom vzdale- 
nost srovnatelnou s delkou celeho 
okruhu. Musime dosahnout lepsiho 
rozliseni pri mereni casu. 

Kdybychom merili cas poctem pru- 
chodu nejakou jednoduchou progra- 
movou smyckou, urcite bychom do- 
stali nesrovnatelne lepsi rozliseni. 
Jenze na kazdem pocitaci by takova 
smycka bezela jinak rychle a se sku- 
teenym merenim casu by to mnoho 
spolecneho nemelo. Ledaze by se po- 
darilo zmerit pocet pruchodu smyckou 
za presne znamy cas a potom stejnou 
smyckou zmerit prujezd auta. Pak by- 
chom mohli jednoduchou trojelenkou 
vypocitat skuteeny cas a nasledne 
i rychlost. 

Kde ale vzit ten presny a znamy 
casovy interval na rizeni kalibracni 
smycky? Kde jinde nez z obvodu 
UART, ktery ma, jak uz bylo jednou 
receno, vlastni a na vsech pocitacich 
stejny zdroj hodinoveho kmitoctu. Po- 
moci nej si potrebny interval vyrobi- 
me. 

Budeme pracovat s COM2. Nejpr- 
ve si propojime vystup TxD z COM2 
na vstup 6 pripravku Interface PC. 
Tim mame obsazeny vstupy 4 a 5 na 
cidla a vstup 6 na kalibracni impulzy. 

Chceme vygenerovat kalibracni 
impulz dlouhy presne 1 s. Na port bu- 
deme vysilat byte 0, ktery pri odeslani 
vytvori impulz v deice 9 bitu (startbit + 
+ 8 bitu dat) - za jednu sekundu musi- 
me tedy vyslat presne 9 bitu. Ze vzta- 
hu f = 1 15200/delitel spocitame delitel 
- vyjde presne 12800. Tento delitel za- 
dame do UARTu. 

Odesleme na seriovy port byte 0. 
Musime pockat, az se na vstupu 6 ob- 
jevi nabezna hrana impulzu, pak 
smyckou rychle pocitame pruchody 
do promenne pocetl, dokud impulz 
neskonci (tj. presne za jednu sekun- 
du). 


repeat until vstup6; 
repeat inc (pocetl) until 
not (vstup6) ; 


Tim je kalibrace hotova. Obdobne 
pockame na vjezd auta do mereneho 
useku a pocitame stejnou smyckou 
cas prujezdu do promenne pocet2. 
Jakmile to mame, je doba prujezdu 
v sekundach jednoduse rovna podilu 
pocet2/pocet1 . Pocitac 386SX20 pro- 
behne kalibracni smyckou priblizne 
70000x za sekundu, rozliseni je tedy 
opravdu dobre. Promenne pocetl a 
pocet2 musi pojmout vetsi cislo, nez 
nam umoznuji typy integer nebo word, 
longint vsak s rezervou postacuje. 

Pokud budeme delat pokusy, zjisti- 
me, ze pocet pruchodu kalibracni 
smyckou je i na stejnem PC pokazde 
trochu jiny, ackoli by teoreticky mel byt 
stale presne stejny. Je to proto, ze 
v prubehu kalibrace je nas program 
obcas odstaven a vykonava se obslu- 
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ha ruznych preruseni souvisejicich se 
systemem PC. Pokud bychom tomu 
chteli zabranit, musime na dobu kali- 
brace (a stejne pak i dobu mefeni) 
preruseni zakazat. Prislusne procedu- 
ry jsou k dispozici v unite comint (Dl 
- zakaz preruseni, El - povoleni preru- 
seni), kterou musime pridat do dekla- 
raci. Vypadalo by to asi takhle: 

DC- 

repeat until vstup6; 

repeat inc (pocetl) until 
not (vstup6) ; 

El; 


Rozptyl namerenych hodnot zpii- 
sobeny interrupty je vsak tak maly, ze 
ho muzeme klidne zanedbat. Nasle- 
dujici program se zkalibruje podle rych- 
losti pocitace, pak vypise ..START” a 
men cyklicky rychlost prujezdu use- 
kem 200 mm dlouhym az do stisku li- 
bovolne klavesy. Program se vsak 
ukonci az nasledujicim prujezdem 
auta po stisku klavesy, protoze ukon- 
ceni je testovano pouze po dokonceni 
mefeni. 

Program rychlost2; 

{pr_024 . pas } 

{presnejsi mereni rychlosti auta) 
uses ovl,crt; 

const delka=200; {mereny usek v mm) 
var rychlost:real; 
pocetl, pocet2: longint; 

begin 

init; 

clrscr; 

writelnf' Mereni rychlosti'); 
writeln; 

writeln)' Probiha kalibrace'); 
pocetl:=0;pocet2:=0; 
port[com2+3] :=128; {rychlost} 
port[com2+0] : =lo (12800) ; 
port [com2+l] :=hi (12800) ; 
port[com2+3] ;=3; {rezim8,n,l) 
port[com2] :=0; 

{kalibrace podle rychlosti PC) 
repeat until vstup6; 
repeat inc (pocetl) until 
not (vstup6) ; 
gotoxy (1,3) ; 

writeln(' START '); 

{mereni prujezdu) 
repeat 
pocet2:=0; 

repeat until vstup4; 
repeat inc(pocet2) until vstup5; 
rychlost :=delka/1000/pocet2*pocetl; 
gotoxy (1,3) ; 

writeln (rychlost; 10; 2, ' m/s'); 
until keypressed; 
if readkey=IO then readkey; 
end. 

Uvedeny program funguje s auto- 
drahou dobfe, avsak obsahuje jednu 
logickou chybu, resp. zjednoduseni. 
Kvuli nemu mefi trochu nepfesne, coz 
u autodrahy asi nikdy nezjistime a ne- 
ovefime. Vychazeli jsme totiz z toho, 
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ze kalibracni a merici smycka jsou 
stejne, ale ony nejsou. Kalibracni kon- 
ci vyhodnocenim podminky ‘ ... until 
not(vstup6); ‘ zatimco merici podmin- 
kou ‘ ... until vstup5 ‘. Ze jde o ruzne 
vstupy, to nevadi, ale ta negace v prv- 
nim pripade se na rychlosti smycky 
nepatrne projevi. Kalibracni smycka je 
pomalejsi, namefime tedy vetsi rych- 
lost, nez je skutecna. Navic tim, ze 
kazde pouziti vstup6 nebo vstup5 je 
volanim procedury, ztracime dalsi 
cas. Smycka by mohla byt jeste pod- 
statne rychlejsi, stacilo by prepsat 
podminky primo bez volani procedur. 

Automaticke rizeni 

Nektere autodrahy jsou vybaveny 
takzvanym automatem, coz je vzletny 
nazev pro reostat, kterym se nastavi 
na jedne draze stabilni napajeni tak, 
aby auto jelo co nejrychleji a pritom 
v zadne zatacce nevyletelo. Je urcen 
predevsim detem, ktere si hraji s auto- 
drahou samy a takto dostanou moz- 
nost zavodit, i kdyz jen proti „auto- 
matu”. 

Podstatne dokonalejsi automat si 
muzeme naprogramovat. Zavodni 
drahu si rozdelime na nekolik useku, 
ktere se lisi rychlosti auta. Delsi rovny 
usek dovoluje jet naplno, vertikalni 
smycka se primo musi projet plnou 
rychlosti, naopak do zatacek je treba 
ubrat, jinak pri jizde na vnitrni a jinak 
na vnejsi draze. Marne k dispozici 
sest vstupii, muzeme tedy rozdelit 
drahu az na sest dilu. 

Nejjednodussi priklad drahy je na 
obr. 22. V mistech oznacenych sipka- 


mi jsou umistena cidla (vstupy 4 a 5), 
auto je napajeno ze zdroje +5 V (tento 
typ autodrahy je urcen na 4,5V) pres 
spinac rizeny impulznim signalem 
s promennou stridou z D/A prevodni- 
ku pi az p4. Kmitocet spinani je lepsi 
nizsi, neco mezi 20 a 50 Hz. 

Nejprve postupne zvysujeme rych- 
lost a najdeme takovou, kdy auto bez- 
pecne projede drahu. Tuto rychlost 
nastavime potom pro usek se zatac- 
kami „A”- Pro usek „B" nastavime piny 
vykon. Protoze vsak auto ma svou se- 
trvacnost (nezrychli hned a take hned 
nezpomali), musime posunout cidla 
o kousek proti smeru jizdy tak, aby 
auto akcelerovalo jiz pri vyjezdu ze 
zatacky a naopak ubralo jiz v predsti- 
hu pred dalsi zatackou. 

Vychozi program je velmi jednodu- 
chy. Pri hledani rychlosti pro usek „A” 
nejprve nastavujeme obe konstanty 
stejne. 

Program autopilotl; 

{pr_025.pas} 

{zkusebni autopilot pro oval) 
uses ovl,crt; 
const rychlost_a=6; 
rychlost_b=15; 

begin 

init; 

(rozjezd na start} 
rychlost_l (rychlost_a) ; 
repeat 

repeat until vstup4; 

{budou zatacky} 
rychlost_l (rychlost_a) ; 
repeat until vstup5; 

(bude rovinka} 



Obr. 22. Nejjednodussi priklad drahy pro automaticke rizeni auticka 
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rychlost_l (rychlostjo) ; 
until keypressed; 
rychlostJL (0) ; 
if readkey=IO then readkey; 
end. 

S vice cidly je mozne si potom 
opravdu vyhrat. Na obr. 23 je priklad 
skutecne drahy, rozdelene do sesti 
useku „A” az „F”. Usek “A” je z pohle- 
du autopilotem rizeneho vozu vnejsi 
zatacka, usek „B” vnitrni zatacka se 
stoupanim na most, usek „C” je rovne 
klesani, na ktere navazuji dve krizeni 
v useku „D”. „E” je opet vnejsi zatacka 
a posledni usek „F” je dlouha rovinka 
pred cilem. Kazdy usek ma jinou ma- 
ximalm rychlost (krome „A” a „E”, ty 
maji stejny charakter), pro kazdy usek 
ji musime najit a nastavit. 

Program by mel krome rizeni rych- 
losti umoznovat i merit cas na jedno 
kolo, vzdyt' to je konec koncu rozho- 
dujici. Vysledek neni nijak slozity, jen 
hledani optimalniho nastaveni je prac- 
ne a zdlouhave - ale detem to tak vu- 
bec nepripada. Samozrejme, ze kaz- 
de auto ma sve vlastni trochu jine 
nastaveni autopilota, protoze ma i jine 
vlastnosti v zatackach. Soucasti opti- 
malizace je i posunuti snimacu proti 
smeru jizdy stejne jako v minulem pri- 
pade. 

Program autopilot2; 

{pr_026.pas} 

{autopilot pro vetsi drahu} 
uses ovl,crt; 
const rych_a=12; 
rych_b=14; 
rych_c=10; 
rych_d=7 ; 
rych_e=9; 
rych_f=15; 
var casl,cas2:real; 
kolo:word; 

procedure zastav; 
begin 

if keypressed then begin 
if readkey=#0 then readkey; 
rychlostJL (0) ; 
exit; 
end; 
end; 

begin 

init;clrscr; 
kolo;=0; 
rychlost_l (10) ; 

writeln(' Autopilot pro autodrahu' ) ; 

writeln; 

repeat 

repeat zastav until vstupl; 
vystup_p(rych_a) ; 
cas2;=cticas; 
if kolo>0 then begin 
write)' Kolo ' , kolo: 5, ' : '); 
writeln) (cas2-casl) : 10 : 2, ' s'); 
end; 

inc(kolo) ; 
casl:=cas2; 

repeat zastav until vstup2; 
rychlost_l (rych_b) ; 
repeat zastav until vstup3; 
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rychlost_l (rych_c) ; 
repeat zastav until vstup4; 
rychlost_l (rych_d) ; 
repeat zastav until vstup5; 
rychlost_l ( rych_e ) ; 
repeat zastav until vstup6; 
rychlost_l (rych_f ) ; 
until false; 
end. 

Vyladit vhodne konstanty ve funkc- 
nim programu trva asi pul az jednu 
hodinu. Vysledkem je vsak „zavod- 
nik”, ktereho neni snadne porazit. 
Jede totiz strojove presne, nedela 
chyby a rychlost ridi citliveji, nez je 
vetsinou mozne rucnim ovladacem a 
s rychlosti reakce cloveka. 

Program Ize dale zdokonalovat. 
Rychlost auta je rizena stridou impul- 
zu, ale stejne vyrazne zavisi i na jejich 
napeti. Pokud toto napeti nema vzdy 
stejnou velikost, vyplati se zavest kon- 
stantu - koeficient vetsinou blizky jed- 
ne - ktery pri pouziti ovlivni pomernym 
zpusobem vsechny ostatni rychlostni 
konstanty. Lze tak jednoduse kom- 
penzovat zmenu napeti. 

Protoze kazde auto ma s ve vlastni 
optimalni nastaveni, pfimo se nabizi 
toto nastaveni ukladat do souboru a 
opet z nej nacist (vytvorit vlastne 
knihovnu aut pro danou drahu) a 
knihovnu ruznych tvaru drahy. 

Dale Ize zapsat do konstant poza- 
dovane rychlosti (easy) v jednotlivych 
usecich drahy, merit skutecnou rych- 
lost (cas) dosazenou v techto usecich 
a podle toho upravovat rychlost v dal- 
sim kole pro kazdy kus drahy samo- 
statne. 

Je take mozne (a ani ne moc slozi- 
te) vytvorit cely ucici se system, ktery 
sam dokaze i zcela neznamou drahu 
zmapovat, nalezt jeji optimalni nasta- 
veni a to potom ulozit do souboru pro 
dalsi pouziti. Podminkou je, aby roz- 
misteni cidel podel drahy bylo zvolene 
rozumne, to program nezkontroluje. 
Princip je celkem jednoduchy. 

Program na pocatku nevi nic o del- 
kach jednotlivych useku a jejich cha- 
rakteru. Muze vsak auto rozjet nizkou 
rychlosti a zmerit easy vsech useku. 
Pak trochu (o jeden stupen) prida, 
znovu meri. Jednotlive easy by mely 
klesnout. Jestlize nektery z nich vy- 
razne vzroste (a v praxi je to vzriist na 
nekolikanasobek, nejen o trosku), 
program tim pozna, ze auto vypadlo 
z drahy a pro dany usek rychlost v dal- 
sim kole zpatky snizi. 

Tak postupne program najde maxi- 
malni rychlost pro vsechny useky. 
Optimalizace konci, kdyz auto rize- 
ne podle nalezenych a vicemene uz 
stabilnich hodnot rychlosti objede cely 
okruh rekneme petkrat bez vyletnuti 
z drahy. Po celou dobu hledani a na- 
stavovani nemusi clovek delat nic ji- 
neho, nez obcas sebrat auto a nasadit 
ho zpet na drahu ve stejnem useku, 
v kterem drahu opustilo. Ani se nemu- 
si moc spechat, bylo by to spis ku 
skode veci. 


Proces vyzaduje urcity cas, auto 
objede drahu pri optimalizaci nekdy 
i stokrat. Zato souperit s nim potom na 
sousedni draze, to da opravdu zabrat. 

Doplnky k modelove 
zeleznici 

Na prvni pohled by se mohlo zdat, 
ze modelova zeleznice a autodraha 
maji z hlediska ovladani mnoho spo- 
lecneho. Neni tomu tak. Autodraha 
vystaci pouze s rizenim rychlosti pri 
jizde vpred, jde predevsim o zavode- 
ni. U zeleznice je zmena smeru jizdy 
bezna. Muzeme ovladat vyhybky, me- 
nit jizdni trasu, rozpoznavat osobni a 
nakladni vlaky jedouci po stejne koleji 
a riiznym zpusobem je obsluhovat. 
Predevsim vsak modelova zeleznice 
nejsou jen vlaky na kolejich. Podstat- 
ne vice ovladatelnych doplnku najde- 
me kolem trati. 

V napajeni modelove zeleznice 
neni uplna jednotnost. Lokomotivy 
jsou zpravidla konstruovany na stejno- 
smerne napeti 12 V, vyhybky a naves- 
tidla vyzaduji obvykle 12 az 16 V stri- 
davych (50 Hz), ale casto jsou schopny 
fungovat i na stejnosmerne napeti 16 
az 18 V. Je dobre si overit, ze pouzite 
vyhybky odpojuji napajeni civek v kon- 
covych polohach, v opacnem pripade 
by se snadno mohly trvalym proudem 
znicit. 

Modelova zeleznice se snazi pribli- 
zit vzhledem i funkei k realite. O totez 
se budeme snazit i my. Jen priciny a 
dusledky urcitych deju si obcas dovo- 
lime obratit. Napriklad ve skutecnosti 
se vlaky ridi podle navestidel. My mu- 
zeme nekdy ovladat navestidla podle 
pohybu vlaku. 

Pro snimani polohy soupravy je 
pouziti optickych cidel problematicke. 
Zdroje svetla ani cidla by nemela byt 
videt nebo by alespon nemela byt na- 
padna, snimaci „most” jako u autodra- 
hy prakticky neprichazi v uvahu. Pre- 
devsim vsak mezerami mezi vagony 
svetlo urcite projde a s tim musime 
pocitat. Snadno zaregistrujeme zaca- 
tek vlaku, ale jeho konec musime vy- 
hodnocovat sloziteji. 

Jednou z moznosti, jak snizit na- 
padnost, je pouzivat infracervena ci- 
dla (napr. L-NP-3C1) a infracervene 
LED (napr. L-NP-7C1) jako zdroj svet- 
la pro ne. Oba uvedene typy jsou vel- 
mi ploche a sviti (prijimaji) ve smeru 
kolmo na plochu, vejdou se snadno i 
mezi dve sousedni koleje a daji se 
celkem lehce zamaskovat. 

Muzeme vyuzit jazyekove kontakty 
zatavene do skleneneho pouzdra a 
vlepene mezi koleje. Na podvozek lo- 
komotivy nebo vagonu pak nalepime 
miniaturni magnet, ktery pri prujezdu 
kontakt sepne. Tak Ize velmi jednodu- 
se odlisit treba nakladni vlaky od 
osobnich - jedny maji magnet, druhe 
ne. Zapojeni kontaktu je jednodu- 
che - mezi prislusny vstup a kladny 
pol napajeciho napeti 5 V. 
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Obr. 24. Zapojeni vyvodu Hallovy 
sondy typu MH1SS1 

Modernejsi (ale slozitejsi) obdobou 
magnetickeho spinace jsou snimace 
na principu Hallovych sond. Starsi 
ceske typu MH1SS1 (pripojeni viz obr. 
24) a podobne najdeme v bazarech 
nebo vyrazenych klavesnicich, nove a 
velmi male v provedeni SMD Ize zis- 
kat rozebranim mechaniky vyrazene 
disketove jednotky. V obchodech se 
soucastkami se shaneji spatne. 

Piskacek 

V nekterych usecich najdeme u tra- 
ti cervenobile pruhovany kolik, ktere- 
mu se rika piskacek. Je to navesti pro 
strojvudce, ze ma dat prerusovane 
zvukove znameni. Parni lokomotivy 
drive piskaly, proto piskacek. Dnesni 
lokomotivy houkaji hlubokym tonem. 
Zkusme zaridit totez na svem jedno- 
duchem kolejisti. 

V urcite vzdalenosti od nechrane- 
neho prejezdu umistime piskacek. 
O par centimetru dal od prejezdu in- 
stalujeme opticke cidlo prujezdu vlaku 
(vstup 2) a dalsich par centimetru dal 
mezi koleje cidlo magneticke (vstup 
1). Na podvozek parnich lokomotiv 
prichytime maly magnet, ktery je 
schopen cidlo sepnout. Ostatni loko- 
motivy magnety mit nebudou. 

Je treba brat v uvahu, ze vlak muze 
na prejezd vjet lokomotivou napred 
nebo nacouvat (vagony napred). Po- 
kud chceme i couvat, musime umistit 
magnet i na posledni vuz parni sou- 
pravy. Pro jednoduchost zatim uvazu- 
jeme jen jednosmernou kolej. 

Funkce bude jednoducha. Jakmile 
se vlak priblizi, sepne magneticke ci- 
dlo - tedy pokud je to vlak parni. Vza- 
peti indikuje pritomnost vlaku opticke 
cidlo, ktere spusti zvukovou vystra- 
hu - piskani nebo houkani. Vic neni 
nutne. Zvuk vsak budeme generovat 
trochu jinak nez dosud. Pouzijeme 
unitu COMINT a vystup TxD treba por- 
tu COM2. TxD pripojime na vstup uni- 
verzalniho posilovace a na jeho vy- 
stup pres rezistor o odporu 10 Q 
dame maly reproduktorek - vykon ani 
impedance neni prilis dulezita. 

Program piskacek; 

{pr_027 .pas} 

{zvukove znameni pred prejezdem) 
uses ert, ovl, comint; 
var cas ; integer ; 

parni; boolean; 

begin 

init; randomize; cas:=0; 

repeat 

if vstupl then begin 
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parni:=true; 
cas : =500; 
end; 

if vstup2 then begin 
if parni then initint (2, 1300) 
else initint (2, 140) ; 
cekej (random (6) +3) ; 
deinitint; 
cekej ( random ( 4 ) +2 ) ; 
if parni then initint (2, 1300) 
else initint (2, 140) ; 
cekej (random (12) +5) ; 
deinitint; 

cekej (random(ll) +9) ; 
end; 

dec (cas) ; 

if cas<0 then begin 
cas:=0; 
parni:=false; 
end; 

delay (10) ; 

until keypressed; 

if readkey=IO then readkey; 

end. 

Aby zvukove znameni, ktere ani 
v draznich predpisech nema presnou 
delku, vice pripominalo skutecnost, je 
vzdy nahodnym generatorem mime 
pozmeneno. 

Rozsireni programu je nasnade. 
Pridame dalsi dve cidla tak, aby indi- 
kace spravne fungovala i pri obou- 
smernem provozu. Nesmime zapome- 
nout, ze po prujezdu prejezdem se uz 
nepiska, i kdyz druhe cidlo samozrej- 
me sepne take. 

Kdybychom chteli presne dodrzet 
trat’ove predpisy, bude vlak vydavat 
prerusovane zvukove znameni od 
okamziku prujezdu kolem piskacku az 
do chvile, kdyjeho celo projede kolem 
prejezdu. 

Signalizace na prejezdu 

Bezna situace z nasich silnic. Sve- 
telna signalizace na prejezdu s bilym 
blikajicim svetlem, pri priblizeni vlaku 
se stridave rozblikaji dve cervena 
svetla a je slyset cinkani zvonku. Cer- 
vena svetla uzaviraji prejezd az do 
doby, nez cely vlak projede. Vyrobime 
si totez, opet pro zacatek budeme 
uvazovat jen jednosmemou traf. 

Asi 50 cm pred prejezd umistime 
opticke cidlo prujezdu vlaku, stejne 
druhe cidlo dame asi 10 cm za pre- 
jezd. Cidla jsou pripojena na vstupy 1 
a 2. V klidu pomalu blika bile svetlo 
(LED na vystupu 1). Jakmile cidlo 
pred prejezdem zaregistruje vlak, 
zhasne bile svetlo a stridave se rozbli- 
kaji svetla cervena (vystupy 2 a 3). 
Soucasne se ozyva i zvukovy signal. 
S vernosti napodobeni zvonku si sta- 
rosti delat nebudeme, kratke pipnuti 
staci. Zvuk budeme generovat stejne 
jako v predchozim pripade. Potom ce- 
kame, az vlak dojede k cidlu za pre- 
jezdem a cely kolem nej prejede. 

Program signalizace; 

{pr_ 028 .pas} 

{zvukove znameni pred prejezdem} 


uses crt,ovl, comint; 
var vlak,stav,posled, konec; boolean; 
i ; integer; 

function prujezdiboolean; 
begin 

stav;=vstup2; 

if (not stav) and posted then 
prujezd:=true else prujezd:=false; 
posled:=stav; 
delay (1) ; 
end; 

begin 

init; 

vlak:=false; 

posled:=false; 

konec;=false; 

repeat 

if vlak then begin 
zapni2; 

for i : =1 to 800 do if prujezd 
then konec ;=true; 
vypni2; 

initint (2,2000) ; 
delay (10) ; 
deinitint; 
zapni3; 

for i:=l to 800 do if prujezd 
then konec :=true; 
vypni3; 
end 

else begin 
zapnil; 

for i:=l to 600 do begin 
if vstupl then vlak:=true; 
delay (1) ; 
end; 
vypnil; 

for i : =1 to 1000 do begin 
if vstupl then vlak:=true; 
delay (1) ; 
end; 
end; 

if konec then vlak:=false; 
konec:=false; 
until keypressed; 
if readkey=IO then readkey; 
end. 


Jestlize vlak na prejezdu zastavi a 
cidlo se bude divat prave mezerou 
mezi vagony, bude prejezd uvolnen, 
ackoli by byt nemel. Podobne bude 
chybne vyhodnocena situace, jestlize 
lokomotiva dojede az pres druhe ci- 
dlo, zastavi a pak zacne couvat. Jak 
tomu zabranit? Moznosti je nekolik. 

Muzeme zvetsit pocet cidel na ctyri 
ve vzdalenostech od prejezdu -50, -10, 
+ 10 a +50 cm. Tato cidla se stejne 
hodi, az budeme rozsirovat funkci pro 
obousmerny provoz. Potom sleduje- 
me vsechna ctyri cidla - vlak musi ne- 
jen svym zacatkem cidla postupne 
aktivovat, ale i po projeti je uvolnit 
v danem poradi. Pokud se to nestane, 
vlak zastavil nebo dokonce ve sledo- 
vanem useku couval. Vyhodnoceni si- 
tuace se dost zkomplikuje. 

Ne vzdy je programove reseni to 
nejjednodussi a nejspolehlivejsi, exis- 
tuji i jine varianty. Treba upravit sni- 
maci cidla podle obr. 25, aby mezerou 
mezi vagony proste nevidela. Svetlo 
neprochazi kolmo na koleje (obr. 25a), 
ale sikmo pod uhlem asi 30° (obr. 25b). 
Tak nemuze projit mezerou mezi va- 
gony. Velmi dulezita je samozrejme 
i vyska nad kolejemi, ve ktere paprsek 
prochazi. Nizky plosinovy vagon ho 
nesmi podjet. Optimalni vyska nad ko- 
lejemi je asi rovna prumeru kol. Dalsi 
moznosti je nechat paprsek dvakrat 
odrazit, tedy dvakrat prejit koleje ve 
vzdalenosti, ktera je o neco vetsi nez 
nejsirsi mezera mezi vagony (obr. 25c). 
Ani v tomto pripade cidlo mezeru ne- 
zaregistruje. Tim se vsak zbavime jen 
casti moznych problemu. 

Pokud je prejezd umisten v zatac- 
ce nebo jeji blizkosti, a to na omeze- 
nem prostoru modelovych kolejist’ pla- 
ti skoro vzdy, muzeme se situaci jeste 
zjednodusit. Jako zdroj svetla pouzije- 
me zarovku a cockou, abychom do- 
stali uzce smerovy zdroj. Paprsek ne- 
chame prochazet nad delsim usekem 
koleji mezi zatackami (obr. 26). Jestli- 
ze je prerusen, je vlak v useku a bez 
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Laser 

Vystup 1 2 az 5 mW, 

\ ai 4 ) 2,8 az 3,0 V 3x 1N4148 +5 v 

o tA K3"" KH K1 ° 

Obr. 27. Zapojeni laserove diody 

ohledu na to, co dela a jakym smerem 
jede, must svitit vystrazna svetla. Tento 
zpusob je na obsluhu programem zda- 
leka nejjednodussi, ma vsak i svou ne- 
vyhodu. V seru bude paprsek osvet- 
lujici vlak videt, svetlo must byt kvuli 
vetsi vzdalenosti od cidla silnejsi. 

Pokud chceme zvladnout i tuto ne- 
vyhodu, misto zarovky jako zdroje 
svetla pouzijeme vysoce svitivou LED 
nebo dokonce maly polovodicovy la- 
ser. Neni nijak drahy a vcetne pouzd- 
ra je i mens!, nez bezne zarovicky. 
Nepotrebuje cocku (tu uz ma v sobe) 
a hlavne, daji se jim delat i velmi krat- 
ke impulzy svetla (to s zarovkou ne- 
jde). Pocitac pak periodicky zjist’uje 
pritomnost vlaku v useku tak, ze za- 
pne zdroj svetla, zkontroluje stav cidla 
a hned zase svetlo vypne. Tyto kratke 
zablesky jsou pro oko prakticky nevi- 
ditelne, postaci 1 ms ctyrikrat za se- 
kundu. Zapojeni je na obr. 27. 

Automaticke zavory 

Tento priklad je obdobou predcho- 
ziho, detekce vlaku uz byla vysvetlena 
v zaveru minuleho prikladu, odlisnost 
je ve spinani vystupu. Zavory se ovla- 
daji stejne jako vyhybky stridavym na- 
petim, takze misto blikani cervenych 
svetel (mozna k nemu navic) sepne- 
me pomoci rele 1 stridavy proud pro 
zavory. Uvedeme si zde priklad jedno- 
duche obsluhy zavor s laserem (LED) 
na vystupu 1 a cidlem na vstupu 1. 

Program zavory; 

{pr_029.pas} 

{stahovani zavor, detekce laserem) 
uses crt,ovl; 


begin 

init; 

repeat 




magneticke cidlo (1) opticke cidlo (3) 


Obr. 29. Odbocka na trati 


zapnil; 
delay (1) ; 

if vstupl then zapni_rel 
else vypni_rel; 
vypnil; 
delay (499) ; 
until keypressed; 
if readkey=IO then readkey; 
end. 

Ovladani vyhybky 

Vyhybky, alespon ty stars!, jsou ty- 
picky konstruovany pro stridave nape- 
ti 16 V. Pokud maji v poradku kontakty, 
ktere v koncovych polohach vypinaji 
proud do civek, muzeme je jednoduse 
ovladat pomoci rele na desce Interfa- 
ce PC, ktere zapojime podle obr. 28. 

Pripravime si odbocku na trati (obr. 
29), kam bude automaticky odklonen 
kazdy nakladni vlak (tj. vlak vybaveny 
magnetem na podvozku lokomotivy), 
zatimco osobni vlaky pojedou primo. 
Asi 20 cm pred vyhybku umistime 
mezi koleje magneticke cidlo pripoje- 
ne na vstup 1. Na odbocku i rovny 
usek, asi 10 cm za vyhybkou, dame 
sikmo cidla opticka (vstupy 2 a 3) tak, 
aby nemohla videt mezery mezi vago- 
ny. V klidovem stavu je vyhybka pre- 
pnuta na rovno. Jestlize se blizi na- 
kladni vlak ze smeru (A), prehodi 
pocitac vyhybku na odboceni a hlida 
cidlo za odbockou. Az posledni vagon 
vlaku prejede, vyhybku opet srovna. 
Na osobni vlak vyhybka nereaguje a 
vlak projede rovne. Jestlize se blizi ja- 
kykoli vlak ze smeru (B), musi preho- 
dit vyhybku a pockat, az projede. Jest- 
lize prijizdi osobni vlak ze smeru (C), 
take se nic nedeje. Kriticka je vsak 
moznost, ze ze smeru (C) prijizdi na- 
kladni vlak. Jeho magnet by po aktiva- 
ci cidla prehodil vyhybku prave v dobe, 
kdy pres ni jede zbytek soupravy a ta 
by vykolejila. Proto je opticke cidlo i ve 
smeru (C). Jestlize z tohoto smeru 
jede vlak, nesmi se az do jeho prujez- 
du a urcity cas po nem brat v uvahu 
hlaseni magnetickeho cidla. 

Uvedeny postup neresi vsechny si- 
tuace, treba tu, kdy dva rozdilne vlaky 
pojedou velmi tesne za sebou. Bezny 
provoz na kolejisti vsak zvladne. Ve 
vetsine situaci spolehame na to, ze 
vlak urcite opusti prostor vyhybky do 
urcite doby, ktera je nastavena kon- 
stantou. Tim se program znacne zjed- 
nodusi. 

Program odkloneni; 

{pr_030.pas} 

{odkloneni nakladnicch vlaku) 
uses crt,ovl; 
const doba=80; {x 0.1 s) 
var odklon; boolean; 

begin 

init; 

odklon:=false; 

repeat 

if vstup2 then begin 
zapni_rel; 

repeat cekej(l) until not vstup2; 
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cekej (doba) ; 
vypni rel; 
end; 

if vstup3 then begin 
vypni rel; 

repeat cekej (1) until not vstup3; 

cekej (doba) ; 

end; 

if vstupl then begin 
zapni_rel; 

repeat cekej (1) until vstup2; 
repeat cekej (1) until (not vstup2); 
vypni rel; 
end; 

until keypressed; 

if readkey=IO then readkey; 
end. 

Rozsirit program muzeme treba tak, 
ze pridame treti opticke cidlo ze sme- 
ru (A), o kousek bliz k vyhybce nez ci- 
dlo magneticke. Ve vsech smerech 
prujezdu vzdy zajistime, aby se vy- 
hybka prehodila do puvodni polohy 
(nebo byla blokovana) az do uplneho 
projeti vlaku. Casova konstanta bude 
potom zbytecna. 

Regulace pri rozjizdeni a 
brzdeni 

Regulaci rychlosti pohybu vlacku 
muzeme resit terrier stejne jako u au- 
todrahy, urcite rozdily tu vsak prece 
jen jsou. Predne motorek lokomotivy 
reaguje velmi dobre i na nejmensi stri- 
du impulzu a vlak jede pri kmitoctu ko- 
lem 20 Hz pekne a velmi pomalu 
vpred. To se na autodraze nestava. 
Vzdy budeme uvazovat i moznost 
zmeny smeru pohybu pomoci rele 
(obr. 18). 

Protoze jednotlive zpusoby ovlada- 
ni uz byly probrany drive, podivame 
se na cely problem zjine stranky. Bu- 
deme vyuzivat regulaci rychlosti stri- 
dou pres prevodnik D/A (pi az p4), je- 
den univerzalni posilovac a rele 1 pro 
zmenu smeru. 

Jestlize vyzkousime, jak lokomoti- 
va ve skutecnosti reaguje na zmenu 
stridy, brzy zjistime, ze zatimco rozdil 
pri prvnich stupnich je dobre patrny, 
s rostouci rychlosti skoro mizi. Jestli- 
ze nechame lokomotivu postupne na 
kazdy krok stridy jet vzdy jednu se- 
kundu a pozorujeme vysledek, rozjezd 
je na zacatku prirozeny, ale pozdeji uz 
neznatelny. Pritom trva prilis dlouho a 
lokomotiva ujede behem nej nekolik 
metru, cozje na male kolejiste moc. 


for i:=0 to 15 do begin 
rychlost_l (i) ; 
delay (1000) ; 
end; 

rychlostJL (0) ; 


I kdyz to v podstate odpovida sku- 
tecnosti (zrychleni z 5 na 10 km/h po- 
zname snadno, zrychleni z 95 na 100 
km/h skoro vubec), prirozenejsi a hez- 
ci rozjezdy udelame i s mensim po- 
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ctem stupnii rychlosti, pokud je vhod- 
ne vybereme. Muzeme zkusit treba 
stupne 0, 1,2, 3, 5, 9, 15. Vytvorime si 
proceduru rychlostvlaku(byte), jejimz 
parametrem bude pozadovana rych- 
lost vlaku jako prirozene cislo od 0 do 
6. Tuto proceduru pak budeme pouzi- 
vat misto dosavadni. 


Procedura rychlostvlaku(r:byte) ; 
begin 
case r of 

0 .. 3: rychlost_l (r) ; 

4: rychlost_l (5) ; 

5: rychlost_l (9) ; 
else rychlost_l (15) 
end; 
end; 


for i:=0 to 6 do begin 
rychlostvlaku(i) ; 
delay (1000) ; 
end; 

rychlostvlaku(O) ; 


Druhou moznosti je regulovat cas, 
po ktery jednotlive stupne jsou udrzo- 
vany. Budeme zatim vychazet z toho, 
ze vzdy jde o rozjezd na plnou rych- 
lost. Nasledujici program vlak z vy- 
chozi pozice plynule rozjede, pak 
udrzuje plnou rychlost vlaku az k op- 
tickemu cidlu pripojenemu na vstup 1 
a pote plynule vlak zastavi. Konstanta 
zrychleni nastavuje rychlost rozjezdu. 

Program rozjezd; 

{pr_031.pas} 

{plynuly rozjezd a zastaveni vlaku} 
uses crt,ovl; 
const zrychleni=3000; 
var i; integer; 

begin 

init; 

for i:=l to 15 do begin 
rychlostJL (i) ; 
delay(round(zrychleni/i) ) ; 
end; 

repeat until vstupl; 
for i : =15 downto 1 do begin 
rychlostJL (i) ; 
delay(round(zrychleni/i) ) ; 
end; 

rychlost_l (0) ; 
end. 

Jestli pouzijeme prvni nebo druhy 
zpusob, je vicemene jedno. Oba vy- 
padaji na pohled prirozene, druhy ma 
o neco plynulejsi prubeh. 

Zastaveni ve stanici 

Predstavme si jednoduchou za- 
stavku na jednokolejne (a pro zacatek 
jednosmerne) trati. Osobni vlak se bli- 
zi, projede kolem navestidla, ktere se 
prestavi na stuj. Pomalu dobrzdi pres- 
ne u zacatku nastupiste, pooka (otevi- 
rat dvere a nechat cestujici nastupo- 
vat v modelovem meritku prece jen 


neumime). Dalsi navestidlo mu da 
volno, ozve se zapiskani a vlak se po- 
malu rozjizdi. Jakmile opusti stanici, 
uvolni se opet vjezd do ni. Pokud pri- 
jede nakladni vlak, jen zahouka, snizi 
rychlost a stanici plynule projede. To 
vse muzeme delat bez primeho rizeni 
clovekem. 

Prvnim krokem ke zvladnuti tohoto 
ukolu je predchozi priklad. Zmerime 
si, jakou drahu potrebuje lokomotiva 
k zastaveni rekneme pri konstante 
zrychleni=1200. Zkusime jizdu bez 
zatizeni i brzdnou drahu s pripojenymi 
vagony. Pravdepodobne se delka pri- 
lis lisit nebude, nejvyraznejsi setrvac- 
nost z cele soupravy ma lokomotiva. 
Ruzne lokomotivy se vsak budou lisit 
hodne. 

Asi metr pred zastavku (resp. pred 
bodem pozadovaneho zastaveni) 
umistime prvni magneticke cidlo 
(vstup 1). To rozpozna nakladni vlak 
(s magnetem). Zvukovy vystup je na 
TxD COM2, pres univerzalni posilovac 
a rezistor o odporu 10 Q se budi re- 
produktor. Navestidlo je pripojeno na 
vystupy 1 (zelena) a 2 (cervena). Asi 
60 cm pred bod zastaveni umistime 
opticke cidlo (vstup 2). To urcuje za- 
catek brzdeni osobniho vlaku. 

Brzdeni je nastaveno tak, aby vlak 
plynule zastavil pred urcenym mistem. 
Vlivem ruzneho zatizeni lokomotivy a 
treni probiha brzdeni pokazde trochu 
jinak. Proto nebudeme brzdit az do 
zastaveni, ale rekneme jen na stupen 
5 (z 15). Pak budeme drzet rychlost az 
do prujezdu vlaku kolem optickeho ci- 
dla tesne pred pozadovanym bodem 
zastaveni (vstup 3). Pote plynule 
dobrzdime do zastaveni. 

Cekani ve stanici, zvukovy signal 
pisfalky a opetovny rozjezd je pak 
uz celkem snadnou zalezitosti. Pred 
rozjezdem se prestavi dalsi navesti- 
dlo na volno - vystup 3 zelena, vy- 
stup 4 cervena. 


Modelove 

navestidlo 



Pri uvedenem zpusobu zastavova- 
ni se zmensi rozdily mezi bodem za- 
staveni ruznych souprav asi na 5 mm. 
Program v prubehu cinnosti vypisuje, 
co se na trati prave deje. 

Program zastavka; 

{pr_032 . pas } 

{automaticky provoz zastavky} 
uses crt,ovl, comint; 
const zrychleni=2500; 
brzdeni=1200; 
var i; integer; 
naklachboolean; 

procedure konec; 
begin 

if keypressed then begin 
if readkey=IO then readkey; 
init; 

rychlostJL (0) ; 
halt; 
end; 
end; 

begin 

init; clrscr; 

zapnil; zapni4; rychlostJL (15) ; 



Modelove nadrazi 
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naklad : =false ; 

writeln('Automaticky provoz stanice' ) ; 
repeat {hlavni smycka programu) 
writeln; 

repeat (cekani na vlak} 
konec; 

if vstupl then begin 
naklad :=true; 
initint (2,160) ; 
vypni4; 
end; 

until vstup2; (prijel vlak) 
konec; 

.if naklad then 

writeln (' Jede nakladni vlak') 
else 

writeln(' Jede osobni vlak'); 
deinitint; 
vypnil; zapni2; 

if naklad then begin (nakladni 
vlak) 

vypni4; zapni3; 
writeln)' pribrzdi' ) ; 
for i : =15 downto 5 do begin 
rychlost_l (i) ; 
delay(round(brzdeni/i) ) ; 
end; 

writeln!' projede stanici' ) ; 
repeat konec until vstup3; 

(na konci) 

writeln!' opusti stanici' ) ; 
repeat konec until not vstup3; 
(odjel) 
delay (2000); 
writeln!' zrychluje'); 
for i;=5 to 15 do begin 
(zrychluje) 
rychlost_l (i) ; 
delay (round (zrychleni/i) ) ; 
end; 
konec; 

zapni4; vypni3; 
delay (1000) ; 
writeln)' je pryc' ) ; 
end else begin (je to osobni 
vlak) 

writeln!' zpomaluje'); 
for i : =15 downto 4 do begin 
rychlost_l (i) ; 
delay(round(brzdeni/i) ) ; 
end; 

writeln!' dojizdi k nastupisti' ) ; 
repeat konec until vstup3; 
writeln!' zastavuje'); 
for i : =3 downto 0 do begin 
rychlost_l (i) ; 
delay (300); 
end; 

writeln)' stoji'); 
konec; 

delay (4000) ; 
konec; 

zapni3; vypni4; 

delay (2000) ; 

initint (2, 1150) ; 

writeln)' povel k odjezdu'); 

vypni4; (nutne po initint) 

delay (800) ; 

deinitint; 

konec; 

delay (1000); 

writeln!' rozjizdi se' ) ; 
for u-1 to 15 do begin 
rychlost_l (i) ; 
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delay (round (zrychleni/i) ) ; 

end; 

repeat konec until not vstup3; 

writeln!' opustil stanici'); 

delay (1000) ; 

writeln!' je pryc' ) ; 

end; 

naklad:=false; 

zapnil; vypni2; zapni4; vypni3; 
until false; 
end. 

Tento program je jiz znacne dlouhy 
a pracny, neni vsak nijak slozity, jen 
pracuje s vice vstupy a vystupy. Na 
pripravku nam zbyly jeste nevyuzite tri 
vstupy, jeden vystup TxD a kompletni 
rizeni rychlosti a smeru jednoho moto- 
ru prevodnikem (nebo vyhybky pomo- 
ci rele). 

Ulohu muzeme dale doplnit tak, 
aby vlak mohl prijizdet k nastupisti 
z obou smeru. Muzeme vybudovat 
male nadrazi s druhou koleji, na kte- 
rou zajizdeji a na ni zastavuji osobni 
vlaky, ostatni nadrazim jen rovne pro- 
jedou. Moznosti je velmi mnoho. 

Uprava modelarskeho 
serva HS-300 

Casto se nam pri stavbe pokus- 
nych konstrukci a modelu hodi maly 
stejnosmerny motor na 5 V s prevo- 
dem do pomala. Nejjednodussim zpu- 
sobem ho ziskame upravou vyrazene- 
ho modelarskeho serva. Popiseme si 
postup pro servo firmy Hitec HS-300, 
ktere patri mezi nejlevnejsi na nasem 
trhu a take je velmi casto pouzivane. 
Toto servo je k uprave velmi vhodne. 

Lze vyuzit i starsi, jiz odlozena ser- 
va s prodrenou snimaci drahou po- 
tenciometru, ktera pro silne skubani 
nelze uz v RC modelech nasadit. Po- 
skozena serva jsou v modelarskych 
bazarech velmi levna nebo je lze zis- 
kat i zdarma. 

Servo rozebereme vysroubovanim 
ctyr sroubkii a sejmutim spodniho kry- 
tu. Vyjmeme servozesilovac a odpaji- 
me ho od motoru. Sejmeme horni cast 
krytu prevodovky a vyndame prevodo- 
va kola. Z hridele potenciometru stah- 
neme prevodove kolo s unasecem ko- 
touce. 

Aby se servo mohlo volne protacet 
o 360°, musime ostrym nozem uriz- 
nout zarazku na poslednim prevodo- 
vem kole (obr. 30), ktera spolu s vy- 
cnelky na vnitrni strane horniho dilu 
krytu serva vymezuje mechanicke do- 
razy. Material opatrne ukrajujeme pla- 
tek po platku, az je zarazka zcela pryc. 
Je to snazsi a rychlejsi nez rezani pil- 
kou nebo pilovani a take tim nevznika- 
ji drobne castecky, ktere bychom pak 
museli z ozubenych kol pracne cistit. 

Malym plochym sroubovackem ro- 
zehneme tri plechove vycnelky, ktere 
pridrzuji odporovou drahu potencio- 
metru. Po jejich narovnani lze odporo- 



Obr. 30. Prevod serva 


vou drahu vyjmout. Klestemi nebo vetsi 
pinzetou povolime matku potenciome- 
tru a vyjmeme telo potenciometru ze 
serva. Zde najdeme plechovou zaraz- 
ku, ktera omezuje pohyb potenciomet- 
ru a brani jeho protoceni dokola. 

Nastavime unasec do takove polo- 
hy, aby zarazka byla pristupna. Posa- 
dime potenciometr na celisti vetsiho 
sveraku zavitem dolu. Neupiname si- 
lou, poskodil by se zavit. Nasadime na 
zarazku brit starsiho kovoveho srou- 
bovaku a nekolika udery kladivkem 
zarazku promackneme tak, aby jeji 
plech vyplnil otvor v pouzdre potencio- 
metru. Hridel se musi zcela volne pro- 
tacet dokola. 

Nyni muzeme zacit se zpetnou 
montazi. Nasadime potenciometr a 
pfipevnime ho matkou. Sestavime 
prevodovku a nasadime horni dil kry- 
tu. K vyvodum motoru pripajime asi 
1 m dlouhou tenkou dvojlinku, na kte- 
rou predem navlekneme pryzovou 
pruchodku z puvodniho kabelu. Nako- 
nec uzavreme krabicku serva a za- 
sroubujeme ctyri sroubky v rozich. 

Takto upravene servo se napaji 
napetim 5 V, pri tomto napeti vykona 
priblizne 1 otacku za sekundu a lze 
zatizit momentem do 30 N/cm. K upev- 
neni serva pri konstrukci ze stavebni- 
ce Merkur nebo podobne poslouzi 
patky pro srouby. Pokud upravene 
servo potrebujeme zkombinovat s Le- 
gem nebo jinou plastovou stavebnici, 
je nejsnazsi prilepit ho oboustranne 
lepici paskou za bok k dilum stavebni- 
ce. 

Jako mechanicky vystup serva se 
nejvice osvedcily puvodni polyamido- 
ve kotouce, do kterych provrtame ot- 
vory o prumeru 3 nebo 3,5 mm na 
uchyceni sroubky. 

Pro pokusy a kratkodobou zatez 
(rekneme do 10 minut), po ktere ma 
servo cas na vychladnuti, vyborne vy- 
hovuje. Je kompaktni, dobre se upev- 
nuje a vypada profesionalne. Jestlize 
bychom ho chteli zatezovat dlouhodo- 
beji (treba jako pohon), bylo by treba 
nechat kryt serva otevreny kvuli chla- 
zeni servozesilovace i motoru. 

Upravy jinych typii serv 

Na obousmerny servopohon lze 
upravit mnoho druhu modelarskych 
serv, nejcasteji asi budeme vycha- 
zet z opotrebovanych a pro modelar- 
ske ucely jiz nepouzitelnych kusu. 
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V prvni fade zkontrolujeme po roze- 
brani pfevodovky, zda ma jeji posledni 
kolo (spojene s unasecem vystupniho 
kotouce) ozubeni po celem obvode. 
U nekterych typu totiz byly mechanic- 
ke dorazy otaceni realizovany tak, ze 
na casti plastoveho kola nebyly zuby. 
Takova serva prakticky upravit nejde. 

Musime najit a odstranit mechanic- 
ky doraz prevodovky. To jde vetsinou 
celkem snadno a nevyzaduje to ani 
specialni nastroje. 

Dalsi mechanicky doraz se vetsi- 
nou skryva ve snimacim potenciomet- 
ru. U nekterych typu Ize potenciometr 
vyjmout, aniz se tim narusi cinnost 
prevodovky - unasec je ulozen v tfe- 
cim nebo kulickovem lozisku a na po- 
tenciometr se zadne vetsi sily nepfe- 
nasi. To je nejjednodussi varianta. 

Ve vetsine levnejsich serv je vsak 
potenciometr soucasti mechanicke 
konstrukce prevodovky a v podstate 
tvofi spodni ulozeni unasece. Pak 
musime obdobne jako u typu HS-300 
potenciometr rozebrat, odstranit me- 
chanickou zarazku a take odporovou 
drahu nebo kontakty. 

Serva, ktera maji popraskana pfe- 
vodova kola, chybejici zuby v pfevo- 
dovce, velkou vuli na vystupnim una- 
seci nebo se jim zasekava motor, se 
radeji ani nepokousime upravovat, 
byla by to velmi pravdepodobne ztrata 
casu. Tyto vadyjsou typicke pro serva 
znicena pfi velkych havariich. Naopak 
serva se znicenymi servozesilovaci 
nebo vydfenymi potenciometry (vady 
typicke pro opotfebeni dlouhou sluz- 
bou) jsou pro upravu vhodna. 

Rizem neupraveneho 
modelarskeho serva 

Modelafske servo muzeme vyuzit 
k rozhybani hracek i v puvodnim sta- 
vu. V tom pfipade je napajeci napeti 
(ktere by melo byt pfitomno trvale) 
5 V, polohu vystupniho kotouce serva 
ridime kratkymi impulzy na signalo- 
vem vstupu. Typicka vychylka serva 
je ±90 stuphu od stredni (neutralni) 
polohy a odpovida vstupnim napet’o- 
vym impulzum delky 1,00 az 2,00 ms. 
Opakovaci kmitocet impulzu kolem 
50 Hz neni nijak kriticky, na vystupni 
vychylku ma jen maly vliv. Pokud 
vstupni impulzy ustanou, servo ziista- 
ne v dosazene poloze, ale tuto polohu 
neudrzuje (da se prestavit mechanic- 
ky „rucne”, mohou se tim vsak posko- 
dit prevody serva). 

Impulzy zavadime do serva primo 
z vystupu 1 pripravku Interface PC, re- 
zistor o odporu 2,2 k£2, spojeny s tim- 
to vystupem, pripojime ke kladnemu 
polu napeti +5 V. 

Generovat impulzy o sirce 1 az 
2 ms je s vyuzitim cekacich procedur 
prakticky nemozne, snad jen pokud 
bychom chteli vyuzit pouze krajni po- 
lohy serva. 


repeat 

vypnil; 

delay ( 1 ) ; {nebo delay (2) } 
zapnil; 
delay (19) ; 
until keypressed; 


K rizeni serva vyuzijeme rychlou 
programovou smycku, ktera se musi 
nejprve na danem pocitaci zkalibrovat 
(obdobne jako v prikladu pr_024). 
Propojime vystup TxD portu COM1 se 
vstupem 1. Vygenerujeme na TxD im- 
pulz o deice presne 0,1 s (odpovidaji- 
ci delitel je 1280) a zmefime pocet 
pruchodu smyckou. Jedne krajni polo- 
ze serva pak bude odpovidat jedna 
setina namereneho poctu (ta soucas- 
ne udava i pocet poloh, ktere muze 
servo mezi krajnimi polohami za- 
ujmout), druhe poloze dve setiny. 

Zkusebni program provede kalibra- 
ci, nastavi jednu krajni polohu serva, 
setrva v ni 10 s, pak pomalu prejede 
do druhe krajni polohy a opet v ni setr- 
va 10 s. 

Za povsimnuti stoji dve veci. Jsou 
to v prvni fade procedury Dl a El v pro- 
cedufe „pulz”, ktere podstatne zmen- 
suji chveni serva, zpusobene neusta- 
lym drobnym narusovanim generovani 
impulzu vykonem pferuseni. Pokud 
tyto procedury odstranime, nepodstat- 
ne se zmeni impulzy, ale zaskuby ser- 
va budou velmi dobfe pozorovatelne. 

Druhou veci je na prvni pohled ne- 
smyslna cast programu v mefici 
smycce (fada INC(pom)). Ma svuj vy- 
znam. Mefici smycka konci totiz pod- 
minkou „not(vstup1)”, ktera je vyhod- 
nocena nesrovnatelne rychleji nez 
podminka v procedufe pulz, ktera po- 
rovnava dve promenne typu word. 
Zdanlive zbytecne instrukce kompen- 
zuji casovani smycek tak, aby trvaly 
prakticky stejne dlouho. 

Program servol; 

{pr_033.pas} 

(rizeni serva programovou smyckou} 
uses ovl, crt, comint; 
var min, max, i,pom:word; 
pocet ;longint; 

procedure pulz (delka;word) ; 
var d:word; 
begin 
d:=0; 

DI; 

vypnil; 

repeat inc(d) until d>=delka; 
zapnil; 

El; 

delay (18) ; 
end; 

begin 

init; 

(nastaveni parametru portu) 
port[coml+3] : =128 ; 
port[coml+0] : =lo (1280) ; 
port [coml+1] : =hi (1280) ; 
port[coml+3] :=3; 
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port[coml] ;=0; 
pom:=0; 

(kalibrace podle rychlosti PC) 
pocet:=0; 

repeat until vstupl; 
repeat 
inc (pocet) ; 

inc (pom) ; inc (pom) ; inc (pom) ; 
inc (pom) ; inc (pom) ; inc (pom) ; 
until not (vstupl); 
min:=round(pocet/10) ; 
max:=min*2; 

(vychozi poloha) 

for i:=l to 500 do pulz (min); 

(prejezd) 

for i:=min to max do pulz (i) ; 

(koncova poloha) 
for i;=l to 500 do pulz (max); 
pip; 
end. 

Tento zpusob fizeni serva je opet 
velmi narocny na cas pocitace. Muze 
vsak mit velke rozliseni, zejmena na 
rychlejsich pocitacich. Vzdy se proje- 
vuje alespon slabe chveni. Stabilnejsi 
zpusob generovani fidicich impulzu 
vede pfimo na vyuziti vystupu TxD 
v ..monostabilnim rezimu”. Tim je mi- 
neno, ze kazdy jednotlivy impulz bu- 
deme spoustet programove, ale jeho 
sifka bude vytvofena obvodem UART. 

Servo pfipojime k vystupu TxD por- 
tu COM1 na pfipravku Interface PC 
pfes stykovy obvod, jehoz schema je 
na obr. 31. Stykovy obvod upravuje fi- 
dici impulzy pro servo tak, aby byly 
kladne a nepfesahovaly uroven 5 V, 
jinak by se servo znicilo. Jinou, rovno- 
cennou moznosti, je nechat impulzy 
z TxD projit postupne dvema univer- 
zalnimi posilovaci (dvema proto, aby 
impulzy nebyly invertovany). 

Na seriovou linku budeme odesilat 
byte $FF, ktery vytvofi kladny impulz 
v deice jednoho bitu (startbitu). Pro 
zacatek musime spocitat pfenosovou 
rychlost (resp. delitele) tak, aby delka 
byla 1 ms (resp. 2 ms). Doba potfebna 
k pfeneseni jednoho bitu je podil deli- 
tele a cisla 115200, z toho se vypocte 
delitel = 0,001 [s] x 115200 = 115 pro 
impulz o deice 1 ms, pro impulz o dei- 
ce 2 ms je delitel roven 230. 

Zmenou pfenosove rychlosti pfi 
stejnem odesilanem byte dosahneme 
zmenu sifky impulzu v 115 krocich, 
coz je velmi dobry zaklad pro (temef) 
plynule fizeni polohy. Nasledujici pro- 
gram zkousi servo stejne jako pfed- 
chozi, ale v klidove poloze by melo 
chveni zcela zmizet. Pokud servo sla- 
be vrci a nehybe se, je to zpusobeno 


JL 


S 4-7V 


Obr. 31. Stykovy obvod pro servo. 

Leve svorky jsou pripojeny 
k pripravku Interface PC, k pravym 
svorkam je pripojeno servo 
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nedostatecnym zesilenim zpetne vaz- 
by servozesilovace. Motor nedojel az 
na pozadovanou polohu a je napajen 
kratkymi impulzy, ktere nestaci uvest 
servo do pohybu. Tento zpiisob rizeni 
je nezavisly na rychlosti pouziteho po- 
citace. 

Program servo2; 

{pr_034 .pas} 

{rizeni serva pres TxD) 
uses ovl, crt, comint; 
var i;word; 

procedure pulz(delka;word) ; 
begin 

port[coml+3] : =128 ; 
port[coml+0] :=lo (delka) ; 
port[coml+l] ;=hi (delka) ; 
port[coml+3] ;=3; 
port [coml] :=$FF; 
delay (20) ; 
end; 

begin 

init; 

(vychozi poloha) 

for i;=l to 500 do pulz (115) ; 

{prejezd} 

for i : =115 to 230 do pulz(i); 

{koncova poloha) 
for i:=l to 500 do pulz (230); 
pip; 
end. 

Uvedeny program zlepsil ovladani 
serva, ale zustal v puli cesty. Stale 
musime kazdy impulz odeslat a hlldat 
opakovaci interval 20 ms. Dalsim 
zlepsenim je zavesit toto odesilani 
byte na casovy interrupt v pocitaci, 
ktery ma prave kmitocet 50 Hz. Tim se 
obsluha serva zjednodusi na zavolani 
procedury, ktera upravi nastaveni por- 
tu pouze v okamziku, kdy se ma polo- 
ha serva zmenit. 

Kolotoc 

Kovova stavebnice Merkur (nebo 
jiny podobny typ, napriklad Meccano) 
dava siroke moznosti ke konstrukci 
ruznych pohyblivych hracek. K me- 
chanickemu pohonu jsou nejvyhod- 
nejsi upravena i neupravena modelar- 
ska serva. 

Velmi jednoduchym prikladem 
je kolotoc. Jeho funkce bude pouze 
v tom, ze se na povel z klavesnice po- 
malu postupne roztoci nebo zastavi. 
Rychlost otaceni postupne zvetsuje- 
me klavesou T (kurzor nahoru) a 
zmensujeme klavesou i (kurzor dolu). 
Rychlost Ize nastavit v 16 stupnich, 
aktualni stav je zobrazen na monitoru 
pomoci rady hvezdicek. Program kon- 
ci po stisku mezerniku. 

Popis mechanicke stavby kolotoce 
je snad zbytecne uvadet, ostatne za- 
lezi i na pouzite stavebnici a dostup- 
nem mnozstvi jednotlivych dilu. Jako 
inspirace muze slouzit obr. 32. 

Program kolotoc; 

{pr_035.pas} 



Obr. 32a. Kolotoc 


{jednoduchy kolotoc z Merkuru) 
uses ovl, crt; 
var i, j : integer; 
kll,kl2:char; 

procedure zobraz; 
begin 

gotoxy (20, 8 ) ; 

write ('Rychlost kolotoce '); 
for j : =1 to i do write!'*'); 
for j : = (i+1) to 15 do write!'.'); 
end; 

begin 

init; clrscr; 
rychlost_l (0) ; 
i:=0; 
zobraz; 
repeat 

repeat until keypressed; 
kll:=readkey; 
if kll=#0 then begin 
kl2:=readkey; 
if kl2=|72 then inc(i); 
if i>15 then i : =15 ; 
if kl2=|80 then dec(i) ; 
if i<0 then i : =0 ; 
rychlost_l (i) ; 
zobraz; 
end; 

until kll=' ' ; 
rychlost_l (0) ; 
end. 

Pasovy dopravnik 

Dalsi konstrukci muze byt pasovy 
dopravnik s podobnou funkci, jako by- 
va u pokladny v supermarketu. V kli- 
dovem stavu dopravnik jede. Polozi- 
me-li na pas predmet, bude odvezen 
az na konec pasu, kde je opticke ci- 
dlo. Pas se zastavi. Jakmile predmet 
odebereme, pas se znovu rozjede a 
priveze dalsi. 



Obr. 32b. Detail pohonu kolotoce 


Pohon pasu je tentokrat spinan po- 
moci rele 1 (neni k tomu technicky du- 
vod, ale jeho klapani se libi), opticke 
cidlo je na vstupu 1. 

Stejne jako v predchozim pripade 
poslouzi misto navodu na mechanic- 
ke reseni obrazek (obr. 33). Pohon je 
upravenym modelarskym servem. 
Konstrukce se musi upravit podle 
pasu, ktery sezeneme - ten na snimku 
vznikl ustrizenim prouzku ze silnejsiho 
plastoveho pytliku. 

Dalsi rozsireni resp. obmena ulohy 
muze spocivat pocitani predmetu, je- 
jich davkovani (pas shodi jeden pred- 
met kazdych 15 s) nebo treba trideni 
a pocitani predmetu podle velikosti 
(dame ctyri opticka cidla po 5 mm nad 
sebe a vyhodnocujeme velikost resp. 
vysku predmetu). 

Program dopravnik; 

{pr_036.pas} 

{pasovy dopravnik) 
uses ovl, crt; 

begin 

init; 

repeat 

if vstupl then vypni_rel 
else zapni_rel; 
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Obr. 33. Pasovy dopravnik 


cekej (1) ; 
until keypressed; 
if readkey=iO then readkey; 
vypni rel; 
end. 

Radar 

Zajimavou ulohou je konstrukce 
„radaru”, ktery vyhledava a zameruje 
zdroj svetla. Postavime model radaru, 
jehoz podstavec tvori ukotveni pro 
telo neupraveneho modelarskeho ser- 
va v poloze kotoucem nahoru (vystup 
TxD COM1 a pres oba univerzalni po- 
silovace jako v programu „servo2”). 
Primo na kotouc prisroubujeme typic- 
kou radarovou antenu, nesmi byt vsak 
prilis velka a tezka, aby nebylo servo 
pri pohybu namahano. 

Na antenu prichytime dve opticka 
cidla (vstup 1 a 2), stejna, jako jsme 
dosud pouzivali. Fototranzistory by 
mely byt zapusteny do tmavych trubi- 
cek. Osy cidel musi smerovat trochu 
do stran od nasmerovani anteny, 
osvedcil se uhel kolem 25°. Model 
zkousime v mistnosti s tlumenym 
svetlem. 

Pokud ani jedno cidlo nevidi zdroj 
svetla, antena prejizdi z kraje do kraje 
- vyhledava. Jakmile posvitlme na ra- 
dar a ten zaregistruje svetlo, antena 
se nasmeruje presne k jeho zdroji. Za- 
stavi se, kdyz jsou osvetlena obe ci- 
dla. Pokud se snazime se zdrojem 
uhnout (ale stale svitime na radar), 
nasmerovani anteny sleduje pohyb. 
Po zhasnuti opet radar prejde k vyhle- 
davani zdroje. 

Muzeme nastavit konstanty „min” a 
„max” podle pouziteho serva tak, aby 
radarova antena mela vetsi uhel po- 
hybu, servo ale nesmi nikdy narazet 
na mechanicke dorazy, velmi brzy by 
se znicilo. Prednastavene hodnoty 
odpovidaji normalizovanemu impul- 
zu pro servo (1,00 az 2,00 ms). 

Trochu prace da nalezt vhodnou 
polohu (uhel) obou cidel. Pokud ante- 


na odskakuje od svetla, prohodime ci- 
dla. Jestlize nemiri primo ke zdroji a 
pri pohybu svetla ho sleduje jen ob- 
casnym skokem, rozevreme cidla od 
sebe. Naopak kdyz kolem nasmerova- 
ni zakmitava, sevreme je vie k sobe. 

Program radarl; 

{pr_037 . pas } 

{radar vyhledava jici svetlo) 
uses ovl, ert, comint; 
const min=115; 
max=230; 

var poloha;word; 
smer;boolean; 
i ; integer; 

procedure pulz (delka;word) ; 
begin 

port[coml+3] : =128 ; 
port[coml+0] :=lo (delka) ; 
port [coml+1] ;=hi (delka) ; 
port[coml+3] ;=3; 
port[coml] :=$FF; 
delay (20) ; 
end; 

begin 

init; clrscr; 

poloha:=round( (max+min) / 2) ; 
smer:=true; 

{pocatecni nastaveni do stredu) 
for i : =1 to 50 do pulz (poloha) ; 
repeat 

{nevidi svetlo - vyhledava) 
if (vstupl and vstup2) then begin 
if smer then inc (poloha) 
else dec (poloha); 
if poloha<=min then smer:=true; 
if poloha>=max then smer:=false; 
end; 

{svetlo je vlevo) 
if (vstupl and not(vstup2)) then 
inc (poloha) ; 

{svetlo je vpravo) 
if (not (vstupl) and vstup2) then 
dec (poloha) ; 
gotoxy (2,2) ; 
write ('Stav : 
vstupl:10,vstup2:10) ; 

{kontrola a pohyb) 
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if polohakmin then poloha ;=min; 
if polohakmax then poloha ;=max; 
pulz (poloha) ; 
until keypressed; 
if readkey=iO then readkey; 
end. 

Radar Ize stejne dobre postavit 
i z Lega, dokonce vypada na pohled 
lepe. K pohonu v tom pripade pou- 
zijeme miniaturni servo nebo mikro- 
servo. 

Rozsireni ulohy vyzaduje postavit 
novy model, tentokrat s antenou po- 
hyblivou kolem dvou os. Protoze ta- 
kova antena je uz podstatne tezsi, 
nemuzeme stavet primo na kotouci 
serva. Serva slouzi jen k pohonu sa- 
monosne konstrukce. 

Do anteny umistime ctyri opticka 
cidla odchylena od osy (vstupy 1,2,3 
a 4), serva jsou pripojena na oba porty 
(COM1 a COM2). Protoze nemame 
k dispozici ctyri univerzalni posilova- 
ce, musi byt alespon jedno servo rize- 
no zapojenim z obr. 31 . 

Cinnost je naprosto stejna. Radar 
vyhledava a pak sleduje zdroj svetla, 
tentokrat vsak ve dvou osach. Muze- 
me naprogramovat ruzne metody vy- 
hledavani - postupne projizdet rozsah 
(jemne linku po lince), nahodne pohy- 
by, hledani v rastru hrube site a po 
zjisteni zdroje presne domireni, hleda- 
ni v jedne ose s druhou ve stredu, kdy 
se po nalezeni zdroje zamiri druha 
osa atd. 

Je velmi zajimave sledovat rych- 
lost a spolehlivost, s jakou je ten ktery 
algoritmus vyhledavani schopen najit 
a zamerit zdroj svetla. 

Umistime-li radar tak, aby svetlo 
(treba od okna) prichazeno k nemu 
zezadu a seridime vyssi citlivost 
vsech cidel, je radar schopen praco- 
vat i s odrazenym svetlem. Na vzdale- 
nost jednoho az dvou metru muze vy- 
hledavat i kousek bileho papiru, ktery 
drzime v ruce. Podminkou vsak sa- 
mozrejme je, ze mistnost je tmavsi a 
obleceni cloveka take. Stejne tak se 
radar dobre „chytne” na bilou kosili az 
ze ctyr metru. Velmi efektni je vzit tre- 
ba do ruky vetsi bilou hracku (nejlepe 
letadlo) a pristavat s nim na Jetisti”, 
radar let presne sleduje. 


Jerab 

Velmi siroke moznosti moznosti re- 
sit ruzne ulohy od nejjednodussich az 
po velmi narocne poskytuji jeraby vse- 
ho druhu. Vyuzivame nejmene dve 
ovladane funkce (posun a zdvih) u por- 
talovych jerabu, casteji vsak tri a vice. 
K pohonu poslouzi upravena serva 
s civkami (lanovymi bubny) nalepeny- 
mi na kotouce - osvedcily se plastove 
civky na spodni nit do siciho stroje. 

Zakladni ovladani muzeme resit 
jednoduse spinanim motoru ctyrmi 
nebo sesti klavesami. Na civky se na- 
viji lanko (nejlepe tenke polyamidove, 
ktere je velmi ohebne a pevne zaro- 
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Obr. 34. Slozitejsi jerab 

veii), konstrukce je ovladana pres 
kladky a kladkostroje, ktere soucasne 
zajisti i potrebne prevody a vysokou 
silu. Nadstavba ovladani pak umoznu- 
je dopravit bremeno presne na poza- 
dovanou polohu danou v pravouhlych 
nebo valcovych souradnicich. 

Priklad mechanickeho reseni tro- 
chu komplikovanejsiho stavebniho je- 
rabu je na obalce a na obr. 34. Ovlada 
se celkove otaceni, zdvih ramene a 
lano s hakem, vse samozrejme obou- 
smerne. Komplikace je v tom, ze zdvih 
ramene neni linearni funkci otaceni 
prislusneho servopohonu a navic 
ovlivnuje i vysku haku nad podlozkou. 

Potrebujeme tri vystupy (vystup 1 , 
2 a 3) a tri rele k reverzaci chodu, jed- 
no tedy musime doplnit na vystup 4. 
Jednoduchy program, kterym Ize jerab 
rucne z klavesnice ovladat, reaguje 
na klavesy kurzoru, PgUp a PgDn. 
Pro jednoduchost dovoluje pohyb 
vzdy pouze jedne funkce soucasne, 
ne pohyby kombinovane. 

Program jerab; 

{pr_038 .pas} 

{rucni ovladani jerabu) 


uses ovl,crt; 
var bl,b2:char; 

begin 

init; clrscr; 


writeln (' 
writeln; 

Rucni 

ovladani jerabu') 

writeln (' 

PgUp 

. . . rameno nahoru' 

writelnf' 

PgDn 

. . . rameno dolu' ) ; 

writeln)' 

A 

. . . bremeno nahoru 

writeln)' 

V 

. . . bremeno dolu' ) 

writeln)' 

=> 

. . . otaceni vpravo 

writeln)' 

<= 

. . . otaceni vlevo' 

writeln)' 

writeln; 

repeat 

SPC 

. . . konec programu 


repeat until keypressed; 
bl;=readkey; 
if bl=' ' then begin 
init; 
halt; 
end; 

if bl=#0 then begin 
b2 ;=readkey; 


case b2 of 

#73 : begin 

zapni_rel; 
zapnil; 
delay (50) ; 
vypnil; 
end; 

181; begin 

vypni rel; 
zapnil; 
delay (50) ; 
vypnil; 
end; 

#72 : begin 

zapni_re2; 
zapni2; 
delay (50) ; 
vypni2; 
end; 

180; begin 

vypni re2; 
zapni2; 
delay (50) ; 
vypni2; 
end; 

#75 : begin 

zapni4; 
zapni3; 
delay (50) ; 
vypni3; 
end; 

#77 : begin 

vypni 4; 
zapni3; 
delay (50) ; 
vypni3; 
end; 

else pip 
end; 

end; 

until false; 
end. 

Dalsim stupnem ve zvladnuti jera- 
bu je automaticka kompenzace vysky 
haku pri spousteni nebo zdvihani ra- 
mene. Zacne byt vyhodne mit moz- 
nost ridit pohyby jerabu nejen co do 
zapnuti a vypnuti, ale i rychlost. Stale 
si vystacime s moznostmi pripravku. 
Otaceni ponechame jako funkci spi- 
nanou, rameno a lano budeme ridit 
vystupy TxD portu COM1 a COM2. To 
nam umozni soucasny koordinovany 
pohyb dvou pohonu, jehoz cilem je 
zachovat vysku haku nad podlozkou 
pri prenaseni bremene od paty jerabu 
na okraj jeho dosahu. 

Muzeme zkusit doplnit funkci, ktera 
najede s hakem automaticky na dane 
misto zadane souradnicemi. Zatim bu- 
deme predpokladat, ze prostor kolem 
jerabu je zcela volny. Jakmile zacne- 
me uvazovat o praci v souradnicich, 
musime doplnit snimani a sledovani 
polohy vsech servopohonu. 

V nejjednodussim pripade doplni- 
me ke kazdemu pohonu jedno opticke 
cidlo, ktere vytvori impulz rekneme na 
kazdych 5 mm odvinuteho lana. Na 
teto deice pochopitelne nezalezi, ale 
je nutne ji zmerit a pocitat s ni. Delku 
pohybu pak odecitame jako pocet im- 
pulzii, smer pohybu predpokladame 
podle zadaneho smeru (vystup na 
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rele). Na pocatku musime rucne najet 
do vychoziho bodu. Tento zpusob 
ovladani neni prilis presny, obcas ne- 
jaky ten impulz „utece" a kalibraci ve 
vychozim bode je treba casto opa- 
kovat. Take pruznost a vule cele kon- 
strukce - uvazujeme stale stavbu 
z Merkuru - vykonaji na nepresnos- 
tech sve. 

Pridanim dalsich cidel tak, aby 
u kazdeho pohonu byla dve s fazove 
posunutym snimanim (obr. 35), dovoli 
sledovat velikost i smysl skutecneho 
pohybu na stridani fazi mnohem pres- 
neji. Stale bez problemu vystacime 
s pripravkem Interface PC, sest vstu- 
pii na nem mame. 

Dostavame se k uloham, u kterych 
se jiz nebude menit model, ale jen vel- 
mi poroste slozitost jeho rizeni. Je 
dobre, kdyz je model co nejtuzsi a po- 
hybuje se bez villi, pokud musime po- 
uzit reminky, pak pouze kvalitni tuhe 
s malou pruznosti. Dostanou se jako 
nahradni dily ke starym typum mag- 
netofonu. Bude zalezet nejen na pres- 
nosti, ale i na dynamickych vlastnos- 
tech jerabu. 

Jako prvni z obtiznejsich uloh mu- 
zeme zkusit automaticky ridit jerab 
z aktualni polohy do souradnicemi za- 
daneho bodu, ovsem v realnem pro- 
stredi s prekazkami. Nepracujeme jiz 
tedy ve volnem prostoru, ale vedle je- 
rabu postavime „domy” (treba polysty- 
renove kostky) o ruzne vysce. Nektere 
mohou i branit v otaceni jerabu, pokud 
neni rameno zvednuto. Budeme pre- 
naset bremena ze „zeme” nebo horni 
plochy „domu” na „zem” nebo horni 
plochu jineho „domu”. 

Do programu musime zadat mapu 
prekazek (vcetne vysek, tedy triroz- 
mernou) v souladu s modelem. Pro- 
gram musi nest bremeno tak, aby ne- 
narazil casti jerabu ani bremenem do 
prekazky. Svou roli samozrejme hraje 
velikost a tvar bremene, muze to byt i 
svisle zavesena tyc. Nezalezi na rych- 
losti pohybu, jen na presnosti. Staci 
ovladat vzdy jen jednu funkci v danem 
okamziku, snaha o rychlost se vymsti. 
Pracujeme naopak velmi pomalu, 
abychom nemuseli uvazovat houpani 
bremene na lane. Pokusna bremena 
volime lepe vetsi a lehci, treba kostky 
vyriznute ze stavebniho polystyrenu 
(nedela kulicky a nespini okoli), proto- 
ze se po rozkyvani odporem vzduchu 
rychle ustali. 

Nasleduji ulohy, pri nichz budeme 
uz vyuzivat popisu dynamickych vlast- 

smer pohybu >■ 


cidlo 1 


cidlo 2 


faze 1 2 3 4 1 

Obr. 35. Signaly z cidel s fazove 
posunutym snimanim 
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Obr. 36. Portalovy jerab s prekazkou 


nosti jefabu i bremene. V techto pfi- 
padech budeme naopak pouzivat 
jako bfemena mensi predmety s vetsi 
hmotnosti, napf. velky zelezny sroub 
o hmotnosti kolem 100 g. Marne pfed- 
met zaveseny na haku na zemi tesne 
u paty jerabu. Nasim ukolem je ho co 
nejrychleji prenest asi do 70 % vzdale- 
nosti od paty (100 % = dosah jerabu). 

Jakmile budeme pracovat na rych- 
lost, bfemeno na lane se pfi pohybu 
nutne rozhoupe. Podstata ulohy je 
v tom, jak co nejrychleji stabilizovat 
polohu bremene pohybem ramene a 
pfitahovanim ci povolovanim lana, 
aby pri spusteni na podlozku bylo 
pfesne v danem miste a skoro v klidu. 
Otaceni jerabu vyuzivat nebudeme, 
vse se deje v ravine bez trojrozmer- 
nych pfekazek. 

Pokud by nekomu pfedchozi uloha 
jeste nestacila, muze doplnit otaceni 
jerabu. Zatimco dosud se bremeno 
chovalo jako slusne vychovane kyva- 
dlo, nyni na nej bude pusobit i odstfe- 
diva sila pri otaceni a bude opisovat 
podstatne slozitejsi obrazce. Stabili- 
zace bude tedy muset take vyuzivat 
vsechny tri pohony. Vyresit tuto ulohu 
pri automatickem fizeni, kdy nemame 
informaci o skutecne aktualni poloze 
bremene, je velmi obtizne. Dokonale- 
ho vysledku nedosahneme nikdy, pro- 
toze nikdy nebude souhlasit matema- 
ticky model ulohy s realnym modelem. 
Jde jen o to, aby program ztlumil kyva- 
ni co nejlepe (resp. alespon znatelne). 

Pokud si chcete vyzkouset schop- 
nosti jerabnika v praxi, staci nechat 
automat co nejrychleji donest breme- 
no nad cil (jako by viselo na tuhe 
svisle tyci) a predat rizeni na rucni 
ovladani tlacitky. Dal se snazte uklid- 
nit kyvani rucne. Je to mnohem horsi, 
nez lovit plysove medvidky z automa- 
tu na pouti ... 

Ani to vsak neni vrchol moznosti. 
Posledni uloha muze vypadat tfeba 
takto. Marne portalovy jerab, ovladane 
funkce jsou pojezd mostu a navijeni 
lana s hakem. Ovladani voziku nema- 


me, vse se deje v jedne ravine. Je du- 
lezite, aby pohony umoznovaly svizny 
pohyb a model mel vetsi rozmery - 
vysku tfeba kolem metru. Na haku je 
zaveseno tezke bremeno (50 az 100 g) 
ve tvaru svisle tyce (ocelovy drat 40 cm 
dlouhy). Marne ho prenest pres pre- 
kazku a stabilizovat na miste urceni. 
Prekazka stoji kolmo na drahu pojez- 
du mostu a je tak vysoka, ze ani kdyz 
zdvihneme tyc maximalne nahoru, ne- 
projde nad prekazkou (jen o kousek, 
tfeba o 20 mm). Situace je na obr. 36. 

Jedinou cestou, jak dostat bfeme- 
no na druhou stranu pfekazky, je po- 
hybem mostu ho fizene rozhoupat, 
pak vyuzit okamziku, kdy je konec nad 
urovni pfekazky, „pfehodit” ho na dru- 
hou stranu a tarn co nejrychleji stabili- 
zovat polohu. Bfemeno se nesmi ani 
dotknout pfekazky, jinak je pokus neu- 
spesny. Opet muzeme zkusit zvlad- 
nout tuto ulohu rucnim fizenim, je to 
svym zpusobem mnohem snazsi nez 
vytvofeni matematickeho popisu a na- 
sledne naprogramovani. Pro pokusy 
pouzijeme pfekazku z tuheho papiru, 
tfeba ctvrtky. 


Mechanicky, rucnim fizenim i pro- 
gramove je tato uloha pine fesitelna a 
jeji obtiznost dost zavisi na tom, jaky 
pfesah bude mit zavesena tyc a pfe- 
kazka. Tato uloha na trochu vetsim 
modelu se fesila i v ramci laborator- 
nich cviceni na vysoke skole, jen jako 
pfekazka slouzila mensi tabulka z ten- 
keho skla. Kriterium uspesnosti bylo 
jednoduche - nerozbit sklo. 

Naznacene ulohy, ktere je mozno 
fesit s modely jefabu, maji dokumen- 
tovat obrovske rozpeti mozne naroc- 
nosti. Program na jednoduche rucni 
ovladani muze napsat desetilete dite 
(ktere mimochodem zvladne rucnim 
fizenim po jistem zacviku i ty nejna- 
rocnejsi uvedene pfipady) se znalost- 
mi matematiky odpovidajicimi veku. 
Pfi programovani slozitejsich uloh 
musi zabrat stfedoskolaci (vyhybani 
se 3D pfekazkam, uklidneni jednodu- 
chych kyvu v ravine) a nejnarocnejsi 
ulohy zatopi snadno i vysokoskola- 
kum. Casova narocnost je od asi pul 
hodiny po nekolik desitek hodin (jen 
na popis a program, model uvazujeme 
hotovy a pfipojeny). 

Soucasne se take dostavame na 
mez, kterou klade rychlost PC. S ne- 
kolikrat uvedenym pocitacem 386SX20 
jsou nejnarocnejsi ulohy jiz problema- 
ticke, protoze potfebujeme pfesnejsi 
fizeni v case a rychlejsi feseni dife- 
rencialnich rovnic matematickeho po- 
pisu. Pocitac Pentium 75 MHz, ktery 
je z hlediska bazaru take jiz neprodej- 
nym srotem, to vsak zvlada dobfe. 

Pasove vozidlo 

Rizeni ruznych vozitek pocitacem 
vzdy narazi na problem pfipoutani vo- 
zitka svazkem kabelu k PC. Ani dalko- 
ve bezdratove ovladani pomoci serio- 
ve vysilanych povelu malym modulem 
pracujicim na 433 MHz sice neni nic 
sloziteho, ale pro prvni pokusy postaci 
kabel. Zvolime takove vozidlo, ktere je 
„od pfirody” silne, pomale a jeho fize- 
ni pfinasi neco noveho. Bude to robot 
na pasovem podvozku. 



Obr. 37. Podvozek pasoveho vozidla 
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Mechanicke reseni vychazi opet 
z Merkuru, ktery pryzove pasy i dalsi 
potrebne dily v nekterych sadach ob- 
sahoval. Blize napovi obrazek holeho 
podvozku s pohony (obr. 37). Pohon 
zajist’uji dve upravena modelarska 
serva pripojena pres rele (pro zmenu 
smeru) na vystupy 1 a 2. S kabely 
dlouhymi 2 az 3 metry Ize projizdet 
udanou drahu, prekonavat pfekazky 
nebo projizdet na presnost brankami. 

Ulohou je pripravit zjednodusene 
rucni rizeni pohonu klavesami „1” az 
„5” tak, ze na povel „1” toci podvozek 
naplno vlevo (levy pas naplno vzad, 
pravy naplno vpred), „2” znamena 
ostre vlevo (levy pas stojl, pravy napl- 
no vpred), „3” rovne vpred. Klavesy 
„4” a „5” rid! analogicky pravou zatac- 
ku. „0” znamena rovne couvani, me- 
zernlk program ukoncuje. 

Program pasak; 

{pr_039.pas} 

{rucni ovladani pasoveho vozidla) 
uses ovl,crt; 
const krok=100; 
var b:char; 

begin 


init; clrscr; 

writelnf' Pasove vozidlo'); 

writeln; 
writeln(' 1 

. . . ostre vlevo' ) ; 

writeln)' 2 

. . . vlevo' ) ; 

writeln)' 3 

. . . rovne vpred' ) ; 

writeln)' 4 

. . . vpravo' ) ; 

writeln)' 5 

. . . ostre vpravo' ) 

writeln)' 0 

. . . vzad' ) ; 

writeln)' SPC 

. . . konec programu 

writeln; 

repeat 

repeat until 

keypressed; 

b:=readkey; 
case b of 
' ' : begin 

init; halt; end; 


' 1' : begin 

vypni rel; 
zapni_re2; 
zapnil; zapni2; 
delay (krok) ; 
vypnil; vypni2; 
end; 

'2' : begin 

vypni rel; 
zapnil; 
delay (krok) ; 
vypnil; 
end; 

'3' : begin 

vypni rel; 
vypni re2; 
zapnil; zapni2; 
delay (krok) ; 
vypnil; vypni2; 
end; 

' 4' : begin 

vypni re2; 
zapni2; 
delay (krok) ; 
vypni2; 
end; 

'5' : begin 

zapni_rel; 
vypni re2; 
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zapnil; zapni2; 
delay (krok) ; 
vypnil; vypni2; 
end; 

'0' : begin 

zapni_rel; 
zapni_re2; 
zapnil; zapni2; 
delay (krok) ; 
vypnil; vypni2; 
end; 
else pip; 
end; 

until false; 
end. 

Tato uloha take nevyzaduje zvlast- 
nl znalosti. Da se nasledne rozslrit na 
automaticke rizeni vozitka po urcite 
draze (ctverci, kruhu nebo rovne 
vpred, otocit a zpet), jemne rizeni 
smeru s vyuzitlm ovladani rychlosti 
obou pasu apod. Ma slouzit prede- 
vslm jako priprava pro ulohu nasledu- 
jicl. Presto vetsinou i samostatne silne 
zaujme, zejmena pokud je podvozek 
kryt atraktivnl kapotou. 

Robot na lince 

Programatorsky zajlmavejsi, atrak- 
tivnl jako hracka a ne moc slozite je 
doplnenl pasoveho podvozku o auto- 
maticke sledovanl vyznacene drahy. 
Na tmavou podlozku (sololitovou des- 
ku) nakresllme bllou barvou drahu 
sirokou asi 2 az 3 cm. Muzeme pouzlt 
i kus tmaveho jednobarevneho kober- 
ce a na nej nalepit prouzky bile latky 
(stuhy) nebo paplru. Draha nemusl 
byt rovna, muze obsahovat i zatacky 
(polomer asi 15 cm), vyhybky (rozdvo- 
jenl a sloucenl car) a ostra zakoncenl. 

Na podvozek umlstlme zarovku a 
dve opticka cidla podle obr. 38 a pri- 
pojlme je na vstupy 1 a 2. Cidla serldi- 
me tak, aby videla odrazene svetlo od 
bile linky, ale nereagovala na tmavy 
podklad. Pokud jsou osvetlena obe, 
pojede robot rovne. Jakmile jedno 
z cidel vyboci z drahy, zacne podvo- 
zek zatacet tak, aby odchylku vyrovnal 
- sleduje i klikatou earn. Pokud obe ci- 
dla sjedou z drahy, zacne se robot 
otacet na miste vlevo, dokud nezachy- 
ti opet linii (je dobre pripadne omezit 
dobu otaceni asi na jednu otacku, ji- 
nak na sebe namota cely kabel). 

Aby bylo mozne vyuzit i vyhybky a 
dokonce i krizovatky, ma program ruc- 
ni rizeni, ale proti predchozimu prikla- 
du jen zjednodusene - vlevo, vpravo, 


cidla 



Obr. 38. Umisteni zarovky a dvou 
optickych cidel na podvozku 
pasoveho vozidla 


vpred, vzad. Pokud predame rizeni 
automatu, jede po lince. Na vyhybee 
pokracuje sam (vetsinou) rovne, po- 
kud chceme zatocit, dame kratce po- 
vel ke zmene smeru (obr. 39). Jestlize 
na rovne trati vybocime ruene vlevo, 
robot otoci a vyda se zpet po stejne 
draze. Vybocime-li vpravo, robot se 
vrati na puvodni trat’. Program ma tes- 
tovaci rezim cidel, aby se usnadnilo 
jejich serizeni. 

Program linka; 

{pr_040.pas} 

{pasove vozidlo na lince) 

uses ovl,crt; 

const krok=100; 

var bl,b2;char; 

procedure vlevo; 
begin 
vypni rel; 
zapnil; 
delay (krok) ; 
vypnil; 
end; 

procedure vlevo2; 
begin 

vypni rel; zapni re2; 
zapnil; zapni2; 
delay (krok) ; 
vypnil; vypni2; 
end; 

procedure vpravo; 
begin 
vypni re2; 
zapni2; 
delay (krok) ; 
vypni2 ; 
end; 

procedure vpravo2; 
begin 

vypni re2; zapni rel; 


sam rovne 


sam rovne 


sam vlevo 


Obr. 39. 

Vyhybky 
na vyzna- 
cene draze 
pro pasovy 
podvozek 
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zapni2; zapnil; 
delay(krok) ; 
vypni2; vypnil; 
end; 

procedure vpred; 
begin 
vypni rel; 
vypni re2; 
zapnil; zapni2; 
delay(krok) ; 
vypnil; vypni2; 
end; 

procedure vzad; 
begin 
zapni_rel; 
zapni_re2; 
zapnil; zapni2; 
delay(krok) ; 
vypnil; vypni2; 
end; 

begin 

init; clrscr; 

writeln(' Pasove vozidlo na lince' ) ; 
writeln; 

writeln)' Rucni rizeni kurzory' ) ; 
writeln)' A ... automat'); 

writeln)' T ... test cidel' ) ; 

writeln; 

writeln)' SPC ... konec programu' ) ; 

writeln; 

repeat 

repeat until keypressed; 

bl:=readkey; 

case bl of 

' ' ; begin init; halt; end; 

't','T': repeat 
gotoxy (2,9) ; 

writeln(vstupl:10,vstup2:10) ; 
delay (100) ; 
gotoxy (2, 9) ; 
writeln)' '); 
until keypressed; 

'a', 'A'; repeat 

if (vstupl and vstup2) 
then vlevo2; 
if (not vstupl and not 
vstup2) then vpred; 
if (vstupl and not 
vstup2) then vlevo; 
if (not vstupl and 
vstup2) then vpravo; 
until keypressed; 
tO; begin 

b2:=readkey; 
case b2 of 
#75 : vlevo2; 

#72: vpred; 

177: vpravo2; 

180: vzad; 
else pip; 
end; 
end; 
else pip; 
end; 

until false; 
end. 

Jak rizeni uvedenym programem 
funguje si muzete prohlednout na vi- 
deu, ktereje umisteno spolu s progra- 
my na internetovych strankach caso- 
pisu Praticka elektronika A Radio na 


adrese www.aradio.cz (71 sekund za- 
znamu, delka 1,3 MB). 

Dalsich variaci na toto tema je 
bezpocet. Muzeme doplnit dopredu ty- 
kadlo s mikrospinacem, kterym robot 
„hmata” prekazky pred sebou, a zkou- 
set ruzne algoritmy pro objizdeni pre- 
kazek. Lze instalovat nahoru fotocidlo 
a naprogramovat, aby robot na svetel- 
ny povel otocil a vydal se zpet. Dve 
svetelna cidla na „radaru” umozni vy- 
hledat zdroj svetla, opustit drahu a vy- 
dat se k nemu. Pokud svetlo zmizi, 
hledat podle urciteho algoritmu bilou 
drahu nebo rovnou pamatovat ujetou 
vzdalenost a tvar cesty za svetlem a 
vydat se zpet „po vlastnich stopach”. 

Vytah 

Z Merkuru si muzeme postavit mo- 
del vytahu v nekolikapatrovem dome 
a simulovat jeho obsluhu. Zaklad kon- 
strukce tvori vez z Merkuru nebo ctyr 
duralovych uhelniku. K pohonu vytahu 
slouzi opet upravene servo s navijeci 
civkou na lanko, prisroubovanou na 
kotouci (obr. 40). Servo je pripojeno 
na vystup z prvniho D/A prevodniku a 
univerzalni posilovac. Na stejnem hri- 
deli jako civka je i dalsi kolecko s osmi 
otvory pro srouby, ktere vyuzijeme 
jako clonku pro fotocidlo (vstup 1). Fo- 
tocidlo snima pohyb vytahu. 

V pravidelnych odstupech prisrou- 
bujeme ctyri plosiny znazornujici jed- 
notliva podlazl. Jako ve skutecnem 
vytahu muze kabina sjet jeste asi 
o pul patra niz, nez je nejspodnejsi 
podlazi, tarn je opticke cidlo detekujici 
kabinu (vstup 2) (doraz). 

Na vstupy 3 az 6 pripojime tlacitka 
(mikrospinace). Slo by samozrejme 
ovladat vytah pouze z klavesnice PC, 
ale takhle to bude zajimavejsi, zejme- 
na pokud jednotlive spinace umistime 
na svisly panel vedle pater. Temito tla- 
citky se bude vytah privolavat. Volbu 
cile jizdy (tlacitka v kabine vytahu) si- 
muluje na klavesnici tlacitko „P” (pri- 
zemi) a „1“ az „3“. 

Predem si zmerime pocet kroku 
potrebnych k prejeti do jednotlivych 
pater (pokud se lanko naviji na buben, 
prumer se postupne nepatrne meni, 
ale rozdil neni podstatny). Prislusnou 
vysku pater nastavime v promenne 
patro. Obsluzny program musi v prvni 
fade zjistit, kde je kabina. Proto jede 
dolu tak dlouho, az opticke cidlo dora- 
zu zachyti kabinu, tim se zorientuje. 
Prejede do prizemi a ocekava povely 
cestujicich. 

Je dulezite prejizdet s kabinou re- 
lativne pomalu, aby pri zastaveni na 
cidle pohybu „neutekly” impulzy. Pro- 
toze kabina z dilu Merkuru je dost tez- 
ka a vyrazne se projevi na rychlosti 
serva, jsou odliseny rychlosti pro jizdu 
nahoru a dolu. 

V nejjednodussi verzi (obvykle 
u starsich vytahu) ceka vytah na povel 
k pristaveni do daneho patra nebo po- 
vel z kabiny. Prikaz prijme a vykona, 
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Obr. 40. Strojovna vytahu 

pricemz dalsi povely neakceptuje ani 
si je nepamatuje. Navic program do- 
voluje kdykoli obnovit nastaveni 
spravne polohy sjetim do spodni polo- 
hy. Program se ukoncuje mezerni- 
kem. 

Program vytah; 

{pr_041.pas} 

(rizeni kabinoveho vytahu) 
uses ovl,crt; 
var poloha,i: integer; 
patro:array [0..3] of integer; 
kl:char; 

procedure jed(p: integer) ; 
begin 

if poloha=patro[p] then exit; 
if poloha<patro[p] then zapni_rel 
else vypni_rel; 
delay (200) 

if polohatpatro [p] then 
rychlost_l (15) else rychlost_l (4) ; 
repeat 

repeat until not vstupl; 
repeat until vstupl; 
if poloha<patro[p] then 
inc(poloha) else dec(poloha); 
until poloha=patro[p] ; 
rychlost_l (0) ; 
vypni rel; 

while keypressed do readkey; 
delay (500) ; 
end; 

procedure sjed; 
begin 
vypni rel; 
delay(200) ; 
rychlost_l (4) ; 
repeat until vstup2; 
rychlost_l (0) ; 
poloha:=0; 
delay (100) ; 
zapni_rel; 
delay” [200 ) ; 
jed(0) ; 
end; 

begin 

patro [0] :=3; 
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Obr. 41. Bubnovy scanner 


patro [1 ] :=20; 
patro [2] :=37; 
patro [3 ] :=54; 
init; 
sjed; 
repeat 

if vstup3 then jed(O); 
if vstup4 then jed(l); 
if vstup5 then jed (2) ; 
if vstup6 then jed (3) ; 
if keypressed then begin 
kl:=readkey; 
case kl of 
fO: readkey; 

' halt; 

'p','P': jed(O); 

'1': jed(l) ; 

'2': jed (2) ; 

'3': jed (3) ; 

' k' , 'K' : sjed; 
else pip; 
end; 
end; 

until false; 
end. 

Stejne jako i jine ulohy je mozne 
oziveny model vytahu dal rozvijet, pre- 
devsim co do inteligence ovladani. 
Vytah si muze pamatovat poradi po- 
zadavkii a postupne je vykonavat, sbi- 
rat cestujici postupne i podle poza- 
davku doslych v prubehu jizdy nebo 
dokonce sledovat cetnost nastupu a 
cilovych stanic pasazeru. Licit se au- 
tomaticky parkovat v patre, z nehoz 
muze prijit podle dosavadnich zkuse- 
nosti pozadavek nejpravdepodobneji 
a tim minimalizovat dobu nutnou k pri- 
staveni vytahu. Muzeme pozorovat 
chovani modernich vytahu a snazit se 
ho napodobit. 

Scanner 

Z dilu Merkuru je mozne celkem 
snadno zkonstruovat i plotter nebo 
scanner. Ostatne pred lety byl popu- 
larni podobny zapisovac Alfi. Zkusime 
si postavit jednoduchy bubnovy scan- 
ner na format A5, ktery je schopen na- 
snimat a zobrazit jednoduchou kresbu 
nebo titulek v novinach (obr. 41). Uce- 
lem neni ziskat hezke a verne obrazky 
z fotografii, ale demonstrovat na co 
nejjednodussim vybaveni i progra- 
mu funkcnost. Stavebnici Merkur bu- 
deme muset doplnit nekolika dalsimi 
dily. 

Zaklad tvori kvuli pozadovane tu- 
hosti obdelnikova deska z drevotrisky 
o rozmerech asi 20x30 cm. Na plose 
jsou prisroubovany dily Merkuru, ktere 
nesou zavesy valce vyrobeneho z cis- 
te plechovky od technickeho redidla. 
Stejne by slo pouzit i treba umytou 
plechovku od nejakeho napoje. Do cel 
plechovky jsou vruty prisroubovana 
kola Merkuru. 

Pohon scanneru zajist’uje jedine 
upravene modelarske servo pres pre- 
vodovku z ozubenych kol (dil Merku- 
ru). Servo otaci jednak bubnem (na 
nej izolepou prichytime snimanou 


predlohu), jednak dlouhym sroubem, 
ktery na matce unasi jezdec se zdro- 
jem svetla a snimacem pripojenym na 
vstup 1. Jezdec je vyroben z kousku 
plasticke hmoty a na matce drzi cas- 
tecne namacknutim, castecne prilepe- 
nim sekundovym lepidlem. Cidloje na 
nej privazano dratem nebo prilepeno 
izolepou. 

Otvory v ozubenem kole na hrideli 
bubnu jsou zaslepeny cernou paskou, 
jen jeden je pruchozi a propousti svet- 
lo zarovky na druhe fotocidlo (vstup 
2). Tim je urcen pocatek snimani be- 
hem otacky. 

V krajni poloze narazi jezdec do 
tlacitka mikrospinace (vstup 3) a se- 
pne ho, cimz da pocitaci jednoznac- 
nou informaci o sve poloze. Jezdec 
nese zdroj svetla a fotocidlo pripojene 
na vstup 1 . Scanner v teto verzi neroz- 
lisuje stupne jasu, jen cernou a bilou. 
Obe opticka cidla jsou naprosto stejna 
jako ve vsech predchozich ulohach. 

Obsluzny program vykonava jen 
nejnutnejsi cinnosti. Na zacatku se 
servo otaci tak dlouho, az jezdec na- 
razi do mikrospinace. Pak se smysl 
otaceni zmeni a cidlo linku po lince 
snima predlohu. Soucasne se na srou- 
bu posunuje. 

Snimani bodu v prubehu jedne 
otacky neni nijak synchronizovano 
s pohybem bubnu, pouze cidlo 2 dete- 
kuje pocatek snimani a potom je vse 
jiz jen casovano programem. Jakakoli 
nerovnomernost chodu pohonu se 
tedy projevi primo na kresbe. Presto 
jsou vysledky slusne pouzitelne, jak 
se muzete presvedcit z fotografie 
(obr. 42). 

Jako priklad byl sniman titulek vy- 
strizeny z novin. Novinovy papir a tisk 


je vyhodny pro pokusy, protoze je 
kontrastni a ma matny povrch - nehazi 
odlesky. Jak se tato predloha sejmula 
a zobrazila na LCD displeji stareho 
notebooku, posud’te sami (viz obr. 42). 
Neni to sice dokonale, ale citelne urci- 
te ano. 

Program scanner; 

{pr_042 .pas} 

{jednoduchy scanner A5 } 
uses ovl,crt, graph; 
var gd,gm, i, j , k: integer; 

begin 

init; clrscr; 

{repeat writeln(vstupl;10) 
until keypressed; halt;} 
writeln; 

writelnj' Presun na pocatek'); 

zapni_rel; 

zapnil; 

repeat until vstup3; 

vypnil; 

vypni rel; 

gd:=vga; 

gm:=vgahi; 

initgraph(gd,gm, ") ; 

i:=i; 

zapnil; 

repeat until not vstup2; 
repeat until vstup2; 
repeat 
repeat 

repeat until vstup2; 
if vstupl then begin 
putpixel ( 638- j , i+30 , 0 ) ; 
putpixel (638-j , i+31, 0) ; 
end 

else begin 

putpixel (638-j, i+30, 15) ; 
putpixel (638-j, i+31, 15) ; 
end; 



Obr. 42. Text, precteny bubnovym scannerem, zobrazeny na LCD displeji 

notebooku 
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inc(j) ; 

for k : =1 to 20 do; 
delay (3) ; 

until ( ( j>638) or (not vstup2 ) ) ; 

i:=i+2; 

j :=i; 

repeat until not vstup2; 

until i>l 80 ; 

vypnil; 

repeat until keypressed; 

if readkey=tO then readkey; 

closegraph; 

end. 

Tento jednoduchy program neni 
mozne prevzit bez uprav souvisejicich 
s konstrukci scanneru, funkce progra- 
mu zavisi na prumeru bubnu, prevo- 
dech, rychlosti PC atd. 

Jednoducha mechanika scanneru 
snese samozrejme dalsi vylepseni, 
zejmena zmenseni fotonkou snimane- 
ho bodu a zavedeni synchronizace 
cteni v prubehu otacky. Velmi zajima- 
ve je i zaradit za snimaci prvek A/D 
prevodnik, uplne staci ctyrbitovy, po- 
moci nehoz rozlisime stupne jasu. Po- 
tom se da zacit experimentovat i se 
snimanim fotografii. 

Mereni 

Ve vsech ulohach jsme vystacili 
vicemene bez obvyklych prevodniku 
A/D. Jejich zvladnuti otevira dalsi siro- 
ky prostor pro aplikace a pokusy. Vet- 
sina casto publikovanych navodii se 
vsak soustredi predevsim na mereni 
jako takova (teploty, prubehu napeti, 
charakteristik tranzistoru atd.), ktera 
jsou pro mensi deti nezajimava, proto- 
ze nerozumi jejich smyslu. 

Rada uloh vyuzivajicich jednodu- 
che a levne (avsak nikoli prilis presne) 
prostredky z oblasti mereni je vyborne 
zpracovana v [3], Najdeme tu nejen 
napet’ove prevodniky D/A a A/D, jiz 
zminene snimani charakteristik tran- 
zistoru, ale treba i jednoduchy osci- 
loskop, realizovany pomoci bezne 
zvukove karty nebo mereni delek z ob- 
razove informace pomoci videokamery. 

Zalezi jen na konkretnich podmin- 
kach, zda tyto ulohy jsou dobre priji- 
many nebo ne. Vzdy je treba najit pre- 
devsim nejake pro deti smysluplne 
vyuziti, coz muze byt neco zcela odlis- 
neho od chapani smysluplnosti nami, 
dospelymi. Napr. technicky elegantni 
a neprilis narocne vybudovani meteo- 
rologicke ustredny ma jen nepatrnou 
nadeji na uspech vedle miniaturni 
funkcni televize do pokojicku pro pa- 
nenku Barbie (bodovy displej LCD ze 
stareho Tamagotchi pripojeny k PC, 
ktere na nem zobrazuje sled obrazku, 
pokud si nekdo chce pohrat, tak i ani- 
maci). Prestoze druhy priklad je spo- 
jen s mnohem vetsi, piplavou a doslo- 
va „hnusnou“ praci jak z hlediska 
pripravy techniky tak programu, pro ty, 
kdo vydrzi, je uspech jisty. 



Obr. 43. Dalkove ovladana figurka 

Roboti a hncky 
v zahranici 

Stavba jednoduchych funkcnich 
modelu cehokoli a jejich rizeni pocita- 
cem je v zahranici ne moc rozsirena, 
ale o to vice propracovana zabava. 
Pritom zhusta nejde o cinnost zame- 
renou na deti a vyuku, a uz viibec ne 
na vyuku programovani, prevazuje ka- 
tegorie panu stredniho az pokrocileho 
veku, kteri toto provozuji jako sve 
hobby. U nas, prestoze slovo robot je, 
jak znamo, ceskeho puvodu, podobne 
aktivity terrier neexistuji. 

Na internetu muzeme najit radu 
velmi zajimavych stranek, na nichz se 
prezentuje mnoho amaterskych tvurcu 
i firem z teto oblasti. Jednou z nich je 
napr. www.robotstore.com , kde na- 
jdeme sirokou komercni nabidku ho- 
tovych hricek, stavebnic i dilu. Na 
obr. 43 je dalkove ovladana figurka, 
ktera diky vnitrnimu gyroskopu doka- 
ze skutecne stat na dvou nohach (na- 
vic dole zakoncenych kulickami) a 
trochu se pohybovat. Jak narocna je 
to uloha, posoudi predevsim ten, kdo 
to zkusil. 

Robotstore je predevsim mistem, 
kde se soustred’uje zbozi mnoha nej- 
ruznejsich vyrobcu. Jsou tu roboti au- 
tonomni, programovatelni, ovladani 
pocitacem, specializovane stavebnice 
LEGO, mechanicke ruce, senzory, 
moduly syntezy reci, kyberneticti 


mazlicci (jako znamy Aibo), literatura, 
video i plakaty s danou tematikou. 

Dalsi stranky s podobnym zamere- 
nim, ktere se vyplati navstivit, jsou 
www.hobbyrobot.com (obr. 44). Ne- 
ktere konstrukce se pritom uz trochu 
vymykaji vzite predstave o modelech 
a hrackach. Treba v sortimentu pod- 
vozku pro roboty najdeme takove, kte- 
re se vejdou do dlane i ty, ktere veli- 
kosti pripominaji ze vseho nejvic 
servirovaci stolek. 

Vseobecne oblibe se tesi pre- 
devsim neobvykle tvary a prove- 
deni pripominajici kosmicke lode, 
letajici talire nebo vicenohe kra- 
cejici stroje. Radu jich najdeme na 
strankach www.lynxmotion.com nebo 
www.mrrobot.com , nejmensi pocet 
noh byva ctyri, obvykly sest az osm 
(obr. 45). Strojova chuze je velmi 
atraktivni na pohled. 

Uvedene konstrukce robotu se za- 
meruji zejmena na mechanickou stav- 
bu a kompletovani z koupenych dilu, 
mene na programovani, a pokud uz 
ano, pak vetsinou na programovani 
jednocipovych pocitacu, protoze jde te- 
mer vyhradne o autonomni stroje. Rize- 
ni prostfednictvim PC je jen vyjimecne. 

Ani velke firmy zamerene na tech- 
nicke stavebnice nenechaly oblast ro- 
botu bez povsimnuti. Jiz nekolikrat 
zminene LEGO a vytvory z nej Ize ozi- 
vit treba pomoci jednotky RCX 1.0, 
ktere byl venovan samostatny clanek 
v casopise Elektor ([8]). Jednotka se 
sklada z mikropocitace a pripojenych 
cidel a akcnich clenu (pohonu), vse je 
samozrejme vestaveno do plastovych 
dilu tak, aby je bylo mozne pouzit zce- 
la prirozene pri stavbe ze stavebnice. 
Obsluzny program pod Windows vy- 
zaduje PC Pentium 166 MHz a 16 MB 
RAM, tedy nijak vysoke naroky nema. 
Podrobnosti najdete na strankach 
www.legomindstorms.com . 

Cela sada, ktera se v soucasnosti 
v novejsi verzi prodava pod oznace- 
nim Lego Mindstorms Robotics Inven- 
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prirno na miste menily zadani a pro- 
gramovaly dalsi cinnosti. Tato firma 
velmi dobre zvlada propojeni elektro- 
niky, elektrickeho pohonu a ovladani, 
mechanickych prevodu a pneumatic- 
kych a hydraulickych dilu (obr. 47 a 
obr. 48). Prave pneumaticke soucast- 
ky ve stavebnicich path mezi speciali- 
tu firmy Fischertechnik. 

V sortimentu teze firmy najdeme 
i riizne hracky a vozitka na solarni po- 
hon, coz je predevsim v zemich EU 
jednak oblibeny zanr, jednak i silne 
podporovane nejen ekologickymi or- 
ganizacemi, ale i statem. Trend, ktery 
smeruje k vychove deti a predevsim 
vjejich radach k velke popularizaci 
obnovitelnych zdroju energie, zejme- 
na solarni, nestoji nyni mnoho penez, 
ale v budoucnosti prinese nepochyb- 
ne znacny uzitek. To je jedna z veci, 
ktere by se v nasich podminkach daly 
delat take, ale aktivity v tomto smeru 
jsou velmi vzacne. 


Obr. 45. Kracejici stroje na strankach www 


tion System 2.0 obsahuje vice nez 
700 dilu stavebnice, CD s programem 
pro PC, infracervene dalkove ovladani 
pripojitelne pre USB port k PC, dva 
pohony, dva dotekove senzory, sve- 
telne cidlo a dalsi dily (obr. 46). 

Stavebnice je jiste velmi dobre pro- 
pracovana, jen jeji cena kolem 200$ 
je na nase pomery dost vysoka. Proda- 
vaji se i samostatne dily, jak uz to ale 
tak byva, jejich cena je z naseho pohle- 
du jeste mene prijatelna. Napr. jedno- 
ducha kostka s optickym cidlem prijde 
na 30$, obdobne tlakove cidlo (mikro- 
spinac v kostce Lego) kolem 18$. 


Firmu, ktera se cilene a jiz po mno- 
ho let venuje funkcnim vyukovym 
pomuckam, najdeme na strankach 
www.fischertechnik.com . Pamatuji 
se, ze jsem asi kolem roku 1992 velmi 
obdivoval rozsahle modely vyrobnich 
linek na jedne vystave v Praze. Vse 
az neuveritelne fungovalo, dopravni 
pasy dopravovaly, manipulatory pre- 
nasely, obrabeci stroje byly pine 
v pohybu. To vse pod rizenim nekoli- 
ka tehdy spickovych PC 386SX. 

Aby jeste vice vyniklo urceni techto 
pomucek, byly pocitace obsluhovany 
detmi ve veku asi 10 az 14 let, ktere 


Zaver 

Uvedene priklady uloh, jejich rese- 
nt i naznacene rozsireni, mohou slou- 
zit jako vychozi material pro mnoho 
dalsich pokusii. Je mozne z nich i vy- 
brat jen urcite prvky, ktere jsou zvlad- 
nutelne pro mensi deti, nebo se nao- 
pak orientovat predevsim na logicke a 
funkcni nadstavby programu. 

Je vice oblasti, ktere zde nebyly 
vubec zmineny. Napr. rizeni kroko- 
vych motoru, ktere maji pro ovladani 
velmi zajimavou vlastnost. Rizenim 
muzeme presne regulovat rychlost a 
pocet otacek, pocitac tedy stale vi, 
v jake poloze se hridel motoru nacha- 
zi. Na druhou stranu vyuzitelna sila je 
proti modelarskym servum jen velmi 
mala. Krokove motory Ize snadno zis- 
kat z vyrazenych mechanik „velkych” 
disketovych jednotek ze starych PC. 

Dalsi, technicky jednoduchou a pro 
deti velmi zabavnou oblasti je kon- 
strukce nejruznejsich zabezpecova- 
cich a hlidacich zarizeni s vice cidly. 
Priklady, kdy se jedna skupina snazi 
vymyslet zajisteni predmetu - hracky - 
proti odcizeni a druha naopak prijit na 
to, jak zabezpecovaci zarizeni obejit a 
nezpiisobit poplach, nuti obe skupiny 
k pfemysleni a vynalezavosti, jejimz 
vysledkem jsou casto naprosto nece- 
kana reseni. 

Zabyvali jsme se pouze priklady, 
k nimz stacil uvedeny pripravek Inter- 
face PC. Pokud je potrebny pocet vy- 
stupu nebo i vstupu podstatne vetsi 
(az do radu stovek), muzeme data vy- 
silat seriove a dekodovat je posuvnym 
registrem. Pro aplikace, kde je spojeni 
pocitace a rizeneho predmetu kabe- 
lem prilis omezujici, se daji nasadit jiz 
zminene homologovane moduly vysi- 
lace a prijimace na 433 MHz nebo 
prenos IR svetlem. Data se prenaseji 
v seriove forme a za pfijimacem se 
dekoduji jednocipovym procesorem. 

Mechanicke ani elektronicke rese- 
ni neni vsak ve vetsine pripadu to 
podstatne. Je nutne mit predevsim na 



Obr 46. Lego Mindstorms Robotics Invention System 2.0 
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3/2-Wege-Magnetventil 
3/2-way solenoid valve 
Electrovanne k 3/2-voies 


3/2-weg-magneetklep 

Valvula de electroiman de paso de 3/2 

Valvula magnetica de 3/2 vias 



Obr. 47. Elektricky ventil firmy Fischertechnik 



Obr. 48. Sestaveny 
dopravnik 


zreteli, ze smyslem uloh je ukazat de- 
tem vsech vekovych skupin, ze poci- 
tac neni jen na pocitani, ani jen na 
hrani her, psani textii nebo jako termi- 
nal pripojeni k internetu, ale ze je to 
take prostredek k rizeni a ovladani 
veci kolem nas. A ze prave tato cin- 
nost je krasna tim, ze vyzaduje mno- 
hem vice tvurciho pristupu a mysleni. 

Na pripadne dotazy odpovi autor 
tohoto clanku elektronickou postou 
(E-mail) na adrese: 
michal. cerny@ volny. cz 
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Nova radioamaterska ucebnice 

V mesici rijnu vysla v nasem vydavatelstvi kniha Ceskeho radioklubu s nazvem 

Pozadavky ke zkouskam operatoru 
amaterskych radiovych stanic 

Je to jiz pate vydani; teto ucebnice bylo v uplynulych letech pro- 
dano pres 10 000 vytisku. Nynejsi vydani je opet aktualizovano, 
nebot’ za posledni dva roky se podstatne zmenily predpisy, tykajici 
se radioamaterskeho vysilani. Autory ucebnice jsou Ing. J. Kadlcak 
a Ing. M. Prostecky a je urcena predevsim zajemcum o slozeni 
zkousek nutnych k ziskani koncese (licence) na radioamaterskou 
vysilaci stanici, nebot’ v ni najdou odpovedi na vsechny otazky, kla- 
dene u zkousek. Vzhledem ke svemu obsahu je vsak stejne vhodna 
jako ucebnice zakladu radiotechniky. Je zpracovana velmi prehled- 
ne; priblizne polovina knihy je venovana radioamaterskym predpi- 
sum a radioamaterskemu provozu od Mezinarodniho radiokomuni- 
kacniho radu az po nase nejnovejsi radioamaterske provozni a 
technicke podminky (vyhlaska MDS c. 201/2000 Sb.). Druha polovi- 
na knihy podrobne probira zaklady radiotechniky ve ctrnacti kapito- 
lach (napr. Zaklady elektrotechniky, Zaklady radioveho prenosu, 

Zdroje elektricke energie, Polovodice, Zakladni elektronicke obvody, 
Anteny atd.). 

Kniha je v brozovane vazbe, formatu A5, ma 250 stran s 240 ob- 
razky. Je k dostani v Ceskem radioklubu, v prodejnach s radioama- 
terskym zbozim a technickou literaturou nebo si ji muzete objednat a 
koupit (cena 160 Kc + postovne a balne) primo v nasem vydavatel- 
stvi: 

AMARO, Radlicka 2, 150 00 Praha 5, tel. /fax: (02) 57 31 73 13, 

(02) 57 31 73 12, E-mail: pe@aradio.cz 
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